How To Use The Folder Name In This Script

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