BackUp.vbs의 업데이트

WSH의 연습도 겸해서...

Const TITLE = "백업작업"
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
MsgBox "SD카드를 삽입하세요." & vbCrLf & vbCrLf & "삽입하였으면 확인버튼을 누르세요." ,vbQuestion, TITLE
objFSO.CopyFolder "C:\***\data" , "I:\" , OverWriteFiles
objFSO.CopyFolder "C:\***\Data" , "I:\Neo\" , OverWriteFiles
objFSO.CopyFolder "C:\***\Chart_Count" , "I:\Neo\" , OverWriteFiles
MsgBox "명령하신 백업업무를 모두 수행하였습니다." & vbCrLf & vbCrLf & "백업된 데이터는 다음과 같습니다." & vbCrLf &"[1] **** Data" & vbCrLf & "[2] **** 입력자료" & vbCrLf & "[3] **** 청구자료" ,vbInformation, TITLE

흠... 앞으로는 분기도...