PDA

Vollständige Version anzeigen : Ich möchte einfach nur eine Datei Kopieren!!!!


Freacky
04.03.2001, 19:40
Kann mir jemand helfen?
(h.duerrwang@t-online.de)

Manuela Kulpa
05.03.2001, 08:00
Hallo Freacky!

Am einfachsten geht es über die FileCopy-Anweisung:

<font face="Courier New" size="3"><pre>Public Sub CopyFile()

Dim Quelldatei As String
Dim Zieldatei As String

' Namen der Quelldatei festlegen.
Quelldatei = "C:\DeinPfad\DeineQuellDatei.exe"

' Namen der Zieldatei festlegen.
Zieldatei = "C:\DeinPfad\DeineZielDatei.exe"

' Quell- in Zieldatei kopieren.
FileCopy Quelldatei, Zieldatei

End Sub</pre></font>

LLAP

Silvio
17.04.2001, 15:16
Hi Freacky,

Du kannst auch folgende Methode verwenden:

Sub Kopieren()

Dim fso As New FileSystemObject
Dim strQuelle As String
Dim strZiel As String

'zuweisen der Variablen
strQuelle="C:\Quellpfad\Quelldatei"
strZiel="C:\Zielpfad\Zieldatei"

'Dateien kopieren
fso.CopyFile strQuelle, strZiel

End Sub

Für fso.CopyFile lassen sich noch Argumente festlegen, z.B. Überschreiben Ja/Nein usw. (steht in der Hilfe)

Viel Erfolg.

Silvio