sPathName = "d:\xy\ccc"
Set fs = CreateObject("Scripting.FileSystemObject")
Set fsFolder = fs.getfolder(sPathName)
Set fsFiles = fsFolder.Files
Set fsFolders = fsFolder.SubFolders
If Not fs.FolderExists(sPathName ) Then
Set Folder05h = fs.CreateFolder(sPathName )
Else
Set Folder05h = fs.getfolder(sPathName )
End If