VBScript를 멍청한 놈 복사 파일 폴더

마이크로 소프트는 여기에 알려줍니다 무엇을 기반으로 : 주위를 재생하는 동안 http://msdn.microsoft.com/en-us/library/xbfwysex(v=vs.84).aspx VBScript를 멍청한 놈 복사 파일 폴더

이 스크립트는

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

작동합니다, 나는 스크립트가 실행되는 날을 알려줍니다, 약간의 오류가 발생했다 . 그러나 이것은 w/o 오류로 실행되지만 아직 작동하지 않습니다. 어쩌면 그것의 날짜 연결, 그래서 나는 주석 및 폴더 이름을 Tests (복수), 그것도 너무 승/O를 오류가 실행되지 않습니다 그것은 무엇을 해야하는지 않습니다. 나는 c : \ Testing 폴더를 c의 루트로 옮겼다. 미안,이 멍청한 놈.하지만 나는 그것을 얻지 못해.

출처

2014-06-09 dwarf

"스크립트가 실행 중임을 알려주는 몇 가지 오류가 발생했지만 w/o 오류가 발생합니다"- 오류가 발생 했습니까? –

좋습니다.이 정확한 스크립트는 오류를 생성하지 않습니다. Dim testing as String을 추가하면 예상치 못한 문장 오류가 발생할 수 있습니다. 그러나이 한 줄만 있으면 오류가 발생하지 않지만 복사 된 파일 폴더는 보이지 않습니다. – dwarf

"FileSystemObject"개체를 만들고 있습니까? –

내 의견에서 언급했듯이 Format()을 사용할 수 없습니다. 또한 시간이 필요하지 않은 경우 Now 대신 Date을 사용하십시오. 다음은 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를 멍청한 놈 복사 파일 폴더

답변

관련 문제