Hvis bestemt drev vælges kopier fil1, hvis andet kopier fil2.

Hej Eksperter
Jeg har et lille prg. hvor jeg vælger et drev og herefter kopieres 2 bmp filer ind i en bestemt mappe.
Nu kunne jeg godt tænke mig, at hvis man i min driveboks vælger A jeg så kopiere den f.eks. fil1 ind og hvis man vælger drev C kopiere den fil2 ind og så fremdeles.
Har vedligt i pt. kode...
Håber en kan hjælpe hurtigt.. Derfor jo 60 points.
vh thomas


Private Sub Form_Load()
Drive1.Drive = Left$(Drive1.Drive, InStr(Drive1.Drive, ":"))
End Sub

Private Sub Command1_Click()
Dim Path As String
Path = App.Path
If Right$(" " & Path, 1) <> "\" Then
Path = Path & "\" 
End If
Shell "xcopy """ & Path & "da*.*"" """ & Left$(Drive1.Drive, InStr(Drive1.Drive, ":")) & "\test\*.*"" /C /I /Y", vbHide
MsgBox "Installation er fuldført ", vbInformation, "Mit prg."
End Sub


Private Sub Command2_Click()
Unload Me
End Sub