Батник (мои комментарии выделены, их набирать не надо):

@FlashLetter.vbs (вызов файла FlashLetter.vbs, файл формирует txt-файл 'letter', в первой строке которого содержится буква флешки)
set /P flash=<"./letter" (прочитать первую строку txt-файла 'letter' и записать ее в переменную flash)
if "%flash%"=="" goto END (если флеш-накопитель не подключён, txt-файл пустой, в переменную flash ничего не записалось, то переход в конец батника на метку END)
xcopy d:\Arhiv\MyMoviesPVD %flash%:\My\PVD\MyMoviesPVD\ /D /E /Y (копирование нужной папки на флешку)
:END (метка конца батника)
@del "./letter" (удаление файла с буквой флешки)

vbs-файл FlashLetter.vbs:

flash = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set Drives = FSO.Drives (получение коллекции дисков в системе)
For Each Drive In Drives (для каждого диска из коллекции...)
 if ((Drive.DriveType = 1) and (Drive.DriveLetter <> "A") and (Drive.DriveLetter <> "B") and Drive.IsReady) then (если тип диска = 1 (Removable) и это не диск A:, не диск B: и диск готов)
 flash = Drive.DriveLetter (получение буквы диска)
 exit for (выход из цикла)
 end if
Next

Set f1 = fso.CreateTextFile("letter", True) (создание текстового файла 'letter')
f1.WriteLine flash (запись в него значения переменной flash)
f1.Close (закрытие файла)