cmd 이걸 비베로 만들어 소스로 만들어 주실분 없나여?

[우리들과]

sAppLocation = App.Path & "\"
sBatName = "update.bat" 'bat
    Open sBatName For Output As #1
    Print #1, "@echo off"
    Print #1, "xcopy Update *.* /U  /Y"
    Print #1, "del Update\" & App.EXEName & ".exe"
    Print #1, "rmdir Update"    ' 실행후 삭제됨
        Print #1, App.EXEName & ".exe"
    Print #1, "del " & sBatName    ' 실행후 삭제됨
    Close #1
    Shell App.Path & "\" & sBatName, vbHide
   Unload Me

비베로 어떠게 해야 할지 모르겟네여.

[갸울]

질문 의도를 모르겠네요. 위의 문장은 배치파일을 만드는 것 같은데 그냥 카피/패이스트 하면 될 것을..