I have a script that currently goes through all the subfolders in a path and executes a program using the file name obtained in the script for each iteration of a file in the subfolders. What I would like to do is to also be able to use the subfolder name in each iteration. Not the full path, just the name of the last folder in the path.
ZZZZZ indicates where I want to use the folder name.
Thanks in Advance.
Here is the script:
Dim fso, WshShell, startFolder, targetApp, args1, args2
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
startFolder = "L:\Junk\02_Split Input\Test1"
targetApp = Chr(34) & "C:\Program Files\EMC Captiva\QuickScan\quickscn.exe" & Chr(34)
args1= " /cmd /open filename="
args2= "/foldername="
args3= " /startip deskew:operatingmode=detectangleanddeskew,direction=both,fillcolor=white,mode=text /exit"
SearchForFiles startFolder
Function SearchForFiles(folderName)
Dim folder, file, fileCollection, folderCollection, subFolder, oExec
Set folder = fso.GetFolder(folderName)
Set fileCollection = folder.Files
For Each file In fileCollection
Set oExec = WshShell.Exec(targetApp & args1 & Chr(34) & file.Path & Chr(34) & args2 & ZZZZZ & Chr(34) & args3)
Do While oExec.Status = 0
WScript.Sleep 100
Loop
Next
Set folderCollection = folder.SubFolders
For Each subFolder In folderCollection
SearchForFiles subFolder.Path
Next
End Function
Open in new window