Finding an extension -VBSCRIPT
I need help with a script I am working on. I am looking to find a file by extension, put that script in the All Users profile and have it run on startup. The problem is I need the script to go out search the C: drive and find the file by the file extension not the file name. I have written a similar program here that finds it via the full file name. If anyone can help it would be really appreciated.
set wshShell=CreateObject("Wscript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strCompName = objNetwork.ComputerName
'CSG Startup
If Instr(1,LCase(strCompName),"VCAE",1) > 1 Then
wshShell.run chr(34) & "C:Program FilesAvayaAvaya IP AgentIpAgent.exe" & chr(34) & "/lang enu",1,true
ElseIf objFSO.FileExists("C:Documents and SettingsAll UsersStart MenuProgramsCSG Systemsacsr.lnk") Then
wshShell.run chr(34) & "C:Documents and SettingsAll UsersStart MenuProgramsCSG Systemsacsr.lnk" & CHR(34),1,false
Else wshShell.run chr(34) & "C:Documents and SettingsAll UsersStart MenuProgramsCSG Systemsnt acsr.lnk" & CHR(34),1,false
End If
'Rumba Startup
If objFSO.FileExists("C:Program FilesWallDataMFRAMErumbaprt.exe") Then
wshShell.run chr(34) & "C:Program FilesWallDataMFRAMErumbaprt.exe" & CHR(34),1,false
End If
Software/Hardware used:
Software/Hardware used:
ASKED:
April 24, 2009 9:28 PM
UPDATED:
April 18, 2011 6:03 PM
Answer Wiki:
<pre>if right(filename,4) =".lnk" then...</pre>
I have some VBScript code that I use to delete files ... I would suggest looking at my code and using as is or incorporating the useful code into your script.
code is at<a href="http://www.code-bytes.com/Automate_WSH_VBScript_To_Delete_Or_Archive_Files.html"> http://www.code-bytes.com/Automate_WSH_VBScript_To_Delete_Or_Archive_Files.html </a>
Additional details are also on the page.
To see all answers submitted to the Answer Wiki: View Answer History.
if right(filename,4) =”.lnk” then…
In the above script, where should this line be placed ?