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