✔ Datei aus einstellbarem Pfad in Ordner kopieren

[Terminator2]

Hi,

habe ein kleines Problem. Ich hab eine Form mit einer DriveList, einer DirList, und zwei DirLists.
Drive List : Laufwerk der Quelle
Dir List: Ordner der Quelle
File List: Quelldatei
File List2: Zielordner festgelegt, dateien werden angezeigt

jetzt wähle ich DriveList aus, dann geh ich in die DirList und wähl nen Ordner aus und in der FileList wähle ich meine Datei aus.
Dann klicke ich auf nen Button und die Quelldatei soll in meinen Zielordner "C:\Sound\Signal" kopiert werden.
Klappt aber nich...

Private Sub cmdCopy_Click()
Dim qPath As String
Dim zPath As String

'Zielpfad auslesen
qPath = Dir1.List(Dir1.ListIndex) & File1.List(File1.ListIndex)
zPath = "C:\Sound\Signal\"

 
'Aufnahme von Quelle zu Zielpfad kopieren (überschreiben)
FileCopy qPath, zPath
End Sub

MFG

 

[Jacka]

Hi!

Würde das ganze so machen:

Option Explicit

Private Sub Command1_Click()
   Dim Verzeichnis As String
   Dim Source As String
   Dim Filename As String
   Dim ZielPfad As String

Verzeichnis = Dir1.Path
Filename = File1.Filename
Source = Verzeichnis & "\" & Filename
ZielPfad = "C:\Sound\Signal\" & Filename
 
'Aufnahme von Quelle zu Zielpfad kopieren (überschreiben)
FileCopy Source, ZielPfad

End Sub


Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub


Private Sub Form_Load()
    File1.Path = Dir1.Path
End Sub

Du musst im Ziel auch einen Zielnamen angeben!
Bei mir funktioniert es!

Grüße,
Jacka

 

[Terminator2]

Hey!

Das klappt auch. Bin meinen Code noch einmal selber durchgegangen und habe es dann hinterher bemerkt

Aber ich glaube der Quelltext von dir wird auch noch anderen Foren Usern weiterhelfen, wenn sie denn die Suchfuntkion verwenden

 

[Jacka]

Freut mich!

Viel Erfolg bei deinem Projekt!