Exe file search and insertion?
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).
--
Regards,
Tom Ogilvy
"SATATOM" wrote in message
...
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
"SATATOM" wrote:
Thank you very much for the quick reply, ill try it as soon as possible.
~Tom
"Tom Ogilvy" wrote:
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",vbTextComp are)
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
--
Regards,
Tom Ogilvy
"SATATOM" wrote in message
...
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
|