Share this code. #NoTrayIcon Opt("MustDeclareVars", 1) Global $Source, $ssName, $Destin, $dsName, $btn XcopyCommand() Func XcopyCommand() $Source = FileSelectFolder("Select drive or folder to copy", @DesktopDir, 2) If Not $Source Then Exit $ssName = FileGetShortName($Source, 1) $Destin = FileSelectFolder("Select drive or folder to save", @DesktopDir, 1+2+4) If Not $Destin Then Exit $dsName = FileGetShortName($Destin, 1) If @error Then Exit $btn = MsgBox(36, "Copy confirm", "Do yo