Exe file search and insertion?

[SATATOM]

Ive read many posts and have not found what im looking for exactly. I need
to search a user's computer looking for a specific file (vncviewer.exe) to be
exact. Then I need to insert that location into a shell command that runs
vncviewer.exe and its associated file; here is my Shell code:

Sub vnctest_macro()
Shell ("C:\Program Files\RealVNC\vncviewer.exe -config C:\temp\v4-xxxx.vnc")
End Sub

The problem is if one doesnt have RealVnc installed in the same place this
wont work and I would like to be able to insert the correct location into my
shell script. If they dont have the .exe at all then I would like an error
msg. If someone has any ideas they would be greatly appreciated.

Thanks, Tom

 

[Tom Ogilvy]

You can use something like this untested code:

Sub AA()
Dim sStr As String, bFound As Boolean
Dim i As Long
sStr = ("Z -config C:\temp\v4-xxxx.vnc")
bFound = False
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "vncviewer.exe"
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If instr(1,.FoundFiles(i),"\vncviewer.exe",vbTextCompare) Then
bFound = True
sStr = Replace(sStr, "Z", .FoundFiles(i))
Shell sStr
Exit For
End If
Next i
If Not bFound Then _
MsgBox "RealVNC not found"
Else
MsgBox "RealVNC not found."
End If
End With

End Sub

 

[SATATOM]

Thank you very much for the quick reply, ill try it as soon as possible. ~Tom

 

[SATATOM]

I tried to implement this but it seems there might be a infinite loop and it
crashes excel. Im going to try to work around this, if anyone catches where
they might be a problem please let me know. Thanks, Tom

 

[Tom Ogilvy]

I suspect it might take a while for the code to search an entire drive. I
don't see anywhere there would be an infinite loop (but then i don't know
how you are calling the routine).

 

[SATATOM]

Thanks alot Tom Ogilvy,

I got this to work, and you were right it just took a bit longer than I
thought to search the hard drive. Im thinking I need to reword the code to
do two loops, so search for the file in the "default location" and if not
found there then search the "c" drive for that file. Thanks, you've been a
big help.

 

[Tom Ogilvy]

The search in the default location is fairly straightforward

if dir("C:\Program Files\RealVNC\vncviewer.exe ") <> "" then
Shell ("C:\Program Files\RealVNC\vncviewer.exe -config
C:\temp\v4-xxxx.vnc")
Else
search the drive

End if

 

[SATATOM]

This is working great, but I have been trying to make this more "robust" by
adding the feature of verifying both sections of the shell, here is what I
have so far but I cannot figure out why this isnt working. If you have any
ideas or could give me any help with this it would be much appreciated:

Sub AA()
Dim sStr As String, bFound As Boolean
Dim sStr2 As String, bFound2 As Boolean
Dim i As Long
Dim j As Long
Dim exe_path As String
Dim config_path As String

exe_path = "C:\Program Files\RealVNC\vncviewer.exe"
config_path = "C:\temp\v4-5900.vnc"

sStr = ("Z")
sStr1 = ("-config")
sStr2 = ("F")
bFound = False

With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "vncviewer.exe"
.FileType = msoFileTypeAllFiles
If Dir(exe_path) <> "" Then
With Application.FileSearch
.NewSearch
.LookIn = "C:\"
.SearchSubFolders = True
.Filename = "v4-5900.vnc"
.FileType = msoFileTypeAllFiles
If Dir(config_path) <> "" Then
Shell (exe_path & " -config " & config_path)

Else
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If InStr(1, .FoundFiles(i), "\vncviewer.exe", vbTextCompare) Then
bFound = True
sStr = Replace(sStr, "Z", .FoundFiles(i))
Exit For

For j = 1 To .FoundFiles.Count
If inStr2(1, .FoundFiles(j), "v4-5900.vnc", vbTestCompare) Then
bFound2 = True
sStr2 = Replace(sStr, "F", .FoundFiles(j))
Exit For
End If
Shell ("Z" + "-config" + "F")

Next i
If Not bFound Then _
MsgBox "Files Not Found!"
Else
MsgBox "Files Not Found!"
End If


End If

End With

End Sub

Thanks for your time..