Vbscript не выводит файл

Question

Вот что у меня есть. Почему он не экспортирует файл вообще? Если я удалю часть «sdate» в строке Set NewFile, она отлично работает.

On Error Resume Next 
    Dim fso, folder, files, sFolder, sDate 

    sDate = Date 

    Set fso = CreateObject("Scripting.FileSystemObject") 
    sFolder = "\\mypath" 'Wscript.Arguments.Item(0) 
    If sFolder = "" Then 
     Wscript.Echo "No Folder parameter was passed" 
     Wscript.Quit 
    End If 
    Set NewFile = fso.CreateTextFile(sFolder& "\Refunds" & sDate & ".csv", True) 
    Set folder = fso.GetFolder(sFolder) 
    Set files = folder.Files 

    For each folderIdx In files 
    NewFile.WriteLine(Replace(Replace(folderIdx.Name,"_",","), ".pdf",""))(folderIdx.Name) 
    Next 
    NewFile.Close 

x=msgbox("CSV list complete." ,0, "Done") 

Answer 1

Заменить строку

sDate = Date 

с

sDate = Replace(Date, "/", "-") 

Кроме того, чтобы убедиться, что ваш скрипт будет работать на ПК, имеющие еще языковые настройки добавить строку в начало

SetLocale(1033)