You'll have to have scripting enabled on your system for this to work. Create a new text file on your desktop and paste the text into it. Save and rename the file to Xcopy.vbs. Ignore the warning about changing the filetype. I don't know how scripting runs on XP if you will get security warnings. Double click to run or right click and select open if double click opens it in Notepad. '----------------------------------------------------------

' VBScript GUI for XCopy

Dim YesNo
Dim mySource
Dim MyDest
Dim MyCmd
Dim WshShell

mySource = InputBox("Enter Source Path","Xcopy")
If mySource = "" then WScript.Quit

myDest = InputBox("Enter Destination Path","Xcopy")
If mySource = "" then WScript.Quit

YesNo= MsgBox("Copy SubDirectories?",4,"Xcopy")

If Right(myDest,1)  <> "" Then myDest = myDest & ""

If Right(mySource,1) <> "" Then mySource = mySource & ""

myDest = Chr(34) & myDest & Chr(34)
MySource = Chr(34) & MySource & Chr(34)
MySource = MySource & "*.*"
MyCmd = "XCopy " & MySource & " " & MyDest

If YesNo = 6 then MyCmd = MyCmd & " /s"

YesNo = MsgBox("Run " & vbCRLF & MyCmd & "?",4,"XCopy")

    If YesNo = 6 then
 
        Set WshShell = CreateObject("WScript.Shell")

        WshShell.Run MyCmd,,vbTrue
        
        Set WshShell = Nothing
        
    End If

'----------------------------------------------------------

"Democracy is a pathetic belief in the collective wisdom of individual ignorance." - H. L. Mencken