的VBScript NOOB複製文件夾

基於關閉對微軟告訴我在這裏：http://msdn.microsoft.com/en-us/library/xbfwysex(v=vs.84).aspx 的VBScript NOOB複製文件夾

這個腳本應該工作

Sub Copy_Folder() 
    FileSystemObject.CopyFolder "C:\Testing\Test\", "C:\Testing\Test" & "_" & Format(Now, "yyyy-mm-dd") 
End Sub

而玩的時候，我確實收到了一些錯誤，告訴我在腳本運行。然而，這運行沒有錯誤，但它不工作。也許它的日期連接，所以我註釋掉，只是將文件夾重命名爲測試（複數），它也運行W/O錯誤，但沒有做它應該的。我甚至將文件夾移出c：\測試到c的根目錄。對不起，這是noob，但我沒有得到它。

來源

2014-06-09 dwarf

「我確實收到了一些錯誤，它告訴我腳本正在運行，但是，這個運行沒有錯誤」 - 下定決心，它是否產生錯誤？ –

好的，這個確切的腳本不會產生錯誤。但是它有一些細微的變化，比如將Dim testing As String添加到了預期的語句錯誤末尾。但只有這一行，它不會產生錯誤，但我看不到複製的文件夾 – dwarf

您是否正在創建「FileSystemObject」對象？ –

正如我在我的評論中提到的，您不能使用Format()。此外，如果您不需要時間，請使用Date而不是Now。這是一個VBScript替代方案。

' Global scope... 
Dim FileSystemObject 

' Somewhere along the way... 
Set FileSystemObject = CreateObject("Scripting.FileSystemObject") 

' Your function... 
Sub Copy_Folder() 

    Dim strDate 
    strDate = Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" & Day(Date), 2) 

    FileSystemObject.CopyFolder "C:\Testing\Test\", "C:\Testing\Test" & "_" & strDate 

End Sub

最後，你的代碼上述應該已經返回了一個錯誤。確保你的代碼中沒有使用On Error Resume Next。這幾乎不是一個好主意，特別是對於初學者或調試時。

來源

2014-06-10 01:31:59 Bond

的VBScript NOOB複製文件夾

回答

相關問題