Not sure if this is possible, but any advise or assistance would be much appreciated.
i have used the code below to determine whether a file(00783763091_2011022313*.wav) or folder exists. If it was possible for the code to return "File exist!", is it possible to open that file?
The naming of the wav file is a variable, but is created by a user and is an unique entry. A program then adds random numeric digits at the end of this naming to prevent duplicates. This process is unnecessary, but cannot be terminated.
Because of this unnecessary process I replaced these added entries with "*" as there is no mathematical way to determine these random entries. Now that i have found a way to search and confirmed that 00783763091_2011022313*.wav" exist, is there a way to open this file. eg. through IE and have QuickTime automatically start playing the file?
Thanks
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Public Sub TestFileExistence()
If FileFolderExists("c:\documents\00783763091_2011022313*.wav") Then
MsgBox "File exists!"
'Shell "C:\Program Files\Internet Explorer\iexplore.exe " & "c:\documents\00783763091_2011022313*.wav", vbNormalFocus '', vbMinimizedFocus"
Else
MsgBox "File does not exist!"
End If
End Sub
Public Function FileFolderExists(strFullPath As String) As Boolean
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Check if a file or folder exists
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
On Error GoTo 0
End Function
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
i have used the code below to determine whether a file(00783763091_2011022313*.wav) or folder exists. If it was possible for the code to return "File exist!", is it possible to open that file?
The naming of the wav file is a variable, but is created by a user and is an unique entry. A program then adds random numeric digits at the end of this naming to prevent duplicates. This process is unnecessary, but cannot be terminated.
Because of this unnecessary process I replaced these added entries with "*" as there is no mathematical way to determine these random entries. Now that i have found a way to search and confirmed that 00783763091_2011022313*.wav" exist, is there a way to open this file. eg. through IE and have QuickTime automatically start playing the file?
Thanks
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Public Sub TestFileExistence()
If FileFolderExists("c:\documents\00783763091_2011022313*.wav") Then
MsgBox "File exists!"
'Shell "C:\Program Files\Internet Explorer\iexplore.exe " & "c:\documents\00783763091_2011022313*.wav", vbNormalFocus '', vbMinimizedFocus"
Else
MsgBox "File does not exist!"
End If
End Sub
Public Function FileFolderExists(strFullPath As String) As Boolean
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Check if a file or folder exists
On Error GoTo EarlyExit
If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
EarlyExit:
On Error GoTo 0
End Function
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>