Visual Basic Forum

Anonymous · Gast

Mein Prog!

Sub fehler()
If Err = 76 Then
MkDir "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder" + txtZiel.Text
End If
End Sub

Private Sub Copy_Click()
If txtZiel.Text = "" Then
MsgBox "Das geht nicht!", vbExclamation, "Warnung"
Exit Sub
End If
If Mid$(txtZiel.Text, 1, 1) = "\" Then
MsgBox "Das geht nicht!", vbExclamation, "Warnung"
Exit Sub
End If
On Error GoTo fehler:
ChDir ("P:\test\" + txtZiel.Text)
Shell "xcopy J:\*.* C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\" + txtZiel.Text + "/-y /q"
MsgBox "Fotos kopiert!", vbInformation, "Fertig"
Exit Sub
fehler:
fehler
Resume
End Sub

das prob:
xcopy is a scheiss! wie kann ich des ersetzen?

txh CHfish

_________________