option explicit
Dim objFSO, objFolder, strDirectory
Dim fso, folder, dt
strDirectory = "C:\Payment Report\folder"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strDirectory)
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder =...