I want to be able to eliminate the need for putting in the drive and folder name into the script below for example the 1st message box requires D:\July 08 which is the subfolder on the disk. This could be any month / year depending on what I need to reinstate. It's really bugging me as the script below works and I have another script that will echo all the details that I want but I can't combine them together.
I must confess my knowledge is very limited and everything I have built is copied and pasted from pretty much this forum. Any help much appreciated.
Dim Fname, strDirectory, FSO, objfso, FSO2
strDirectory= Inputbox ("D Drive Directory Name")
--The above line is what I want to eliminate so it searches the subfolder and I
Fname= Inputbox ("Letter Number")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists (strDirectory & "\" & "R" & Fname & ".doc") Then
Const OverwriteExisting = True
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile strDirectory & "\" & "R" & Fname & ".doc" , "\\BRUSTR03\RUFUS\DATA\CORR\LGU\IMAGES\"
WScript.Echo "File Doesn't Exist"
If MsgBox("Do you have another letter to restore?", vbYesNo) = vbYes Then