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
Our community of experts have been thoroughly vetted for their expertise and industry experience.
The Most Valuable Expert award recognizes technology experts who passionately share their knowledge with the community, demonstrate the core values of this platform, and go the extra mile in all aspects of their contributions. This award is based off of nominations by EE users and experts. Multiple MVEs may be awarded each year.
The Distinguished Expert awards are presented to the top veteran and rookie experts to earn the most points in the top 50 topics.