View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default 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