BlackBoard (http://www.black-board.net/index.php)
- Design, Programmierung & Entwicklung (http://www.black-board.net/board.php?boardid=55)
-- Programmieren (http://www.black-board.net/board.php?boardid=4)
--- VB Dateien kopieren (http://www.black-board.net/thread.php?threadid=4194)
Geschrieben von kilone am 20.03.2002 um 17:04:
Dateien kopieren
ich will mir nen prog schreiben was alle Datei von einem in den aneren Ordner kopieren kann. Habe folgendes bereits fertig bekomme aber immer den Fehler: Dateiname oder Nummer falsch. Das ist der Code den ich bis jetzt habe.
Private Sub Command1_Click()
Dim Quelle, Ziel As String
Quelle = "C:\Download\*.*
Ziel = "d:\test\*.*"
FileCopy Quelle, Ziel
End Sub
Geschrieben von LX am 20.03.2002 um 23:12:
Bin mir net sicher, wie's in Visual Basic damit aussieht, aber in anderen Programmiersprachen leitet der Backslash "\" für gewöhnlich Sonderzeichen (carriage returns, tabs etc.) ein. Um also den Backslash als Zeichen selbst zu bekommen, nutzt man "\\". Also für einen Pfad beispielsweise:
"C:\\Programme\\wasauchimmer"
Probier's mal damit, vielleicht liegt es daran.
Geschrieben von kilone am 20.03.2002 um 23:13:
danke ich werde es demnächst mal versuchen
Geschrieben von Medusa am 21.03.2002 um 13:41:
Keine Ahnung, warum der Fehler kommt. Des liegt an dem "*.*"
Erstell eine File-List-Box (File1) und füg den Code hier ein:
Private Sub Form_Load()
Dim Quelle, Ziel as String
Quelle = "C:\"
Ziel = "C:\Windows\Desktop\Bla\"
File1.System = True
File1.Hidden = True
File1.Normal = True
File1.Archive = True
File1.ReadOnly = True
File1.Path = Quelle
For I = 0 To File1.ListCount - 1
Datei1 = File1.Path + File1.List(I)
Datei2 = Ziel + File1.List(I)
FileCopy Datei1, Datei2
Next I
End Sub
Die File-List-Box kannst du ja verstecken (visible=false)!
Geschrieben von kilone am 22.03.2002 um 02:21:
ok mach ich danke für eure hilfe
Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH