VoiceRecorder의 것도 BackUp을 만들어 보았다...

Option Explicit

Const TITLE = "***녹음백업작업"
Dim Msg, objFSO, DriveStatus
Set objFSO = CreateObject("Scripting.FileSystemObject")


'=======================
' 스크립트 본체
'=======================

DriveStatus = objFSO.DriveExists("E:")

Do While DriveStatus

Msg = MsgBox("**녹음백업을 수행하겠습니다." & vbCrLf & vbCrLf & "Voice Recorder를 삽입하세요.", vbExclamation + vbYesNo, TITLE)

If Msg = vbYes Then
objFSO.MoveFile "E:\DSS_FLDA\*.wma" , "C:\Documents and Settings\shaegis\My Documents\Documents\****녹음\"
MsgBox "명령하신 백업업무를 모두 수행하였습니다." ,vbInformation, TITLE
Exit Do

ElseIf Msg = vbNo Then
MsgBox "***녹음 백업 취소 명령을 내려셨습니다." , vbInformation, TITLE
Exit Do

End If

Loop

If DriveStatus = 0 Then
MsgBox "VoiceRecorder 삽입 후 다시 시도해 주십시요." ,vbQuestion, TITLE
End If

BackUp.vbs의 Ver.up.

일전에 작성한 스크립트를 업데이트 하였다.
원래라면 DreiveExists 메소드를 사용해야 하지만, 내 컴은 계속해서 True 값을 반환하고 있어서, 백업 폴더를 찾는 것으로 대신하였다.

BackUp.vbs
-----------------------------------------
Option Explicit

Const TITLE = "백업작업"
Const OverWriteFiles = True

Dim Msg, objFSO, FolderStatus
Set objFSO = CreateObject("Scripting.FileSystemObject")

'============================
' 스크립트 본체
'============================

FolderStatus = objFSO.FolderExists("I:\data") 'DriveExists를 사용하고 싶다...

Do While FolderStatus

Msg = MsgBox("백업을 수행하겠습니다." & vbCrLf & vbCrLf & "SD카드를 삽입하세요.", vbExclamation + vbYesNo, TITLE)

If Msg = vbYes Then
objFSO.CopyFolder "C:\**\data" , "I:\" , OverWriteFiles
objFSO.CopyFolder "C:\*******\Data" , "I:\***\" , OverWriteFiles
objFSO.CopyFolder "C:\*******\Chart_Count" , "I:\***\" , OverWriteFiles
MsgBox "명령하신 백업업무를 모두 수행하였습니다." & vbCrLf & vbCrLf & "백업된 데이터는 다음과 같습니다." & vbCrLf &"[1] **** Data" & vbCrLf & "[2] **** 입력자료" & vbCrLf & "[3] **** 청구자료" ,vbInformation, TITLE
Exit Do

ElseIf Msg = vbNo Then
MsgBox "백업 취소 명령을 내려셨습니다." , vbInformation, TITLE
Exit Do

End If

Loop

If FolderStatus = 0 Then
MsgBox "백업용 카드삽입 후 다시 시도해 주십시요." ,vbQuestion, TITLE
End If

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

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

BackUp위한 비망록...

WSH가 NT시절보다 더 업그레이드 된 듯.

데이터 자료를 백업하기 위한 스크립트 하나...

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

MS 스크립트 센터