Dateien kopieren

23/10/2009 - 16:31 von Thomas Wolf | Report spam
Hallo zusammen

Ich möchte Dateien kopieren. Da dachte ich ich mache das mit der Command.

Function DosStay()
Dim MyCommand As String
Dim TaskId As Integer

10 On Error GoTo Err_DosStay

'20 MyCommand = "COMMAND.COM /K DIR /P"
30 MyCommand = "COMMAND.COM /k copy 'C:\Documents and
Settings\xxxx\Desktop\test.txt' c:\test\text.txt"

40 TaskId = Shell(MyCommand, 1)
50 DosStay = True

Exit_DosStay:
60 On Error GoTo 0
70 Exit Function

Err_DosStay:
80 Stop
90 MsgBox Error$
100 Resume Exit_DosStay

End Function

Zeile 20 funktioniert, Zeile 30 nicht (Too many parameters). Bei xxxx ist
natürlich mein username angegeben.

Ich möchte in meiner DB ein Möglichkeit haben, Dateien, welche sich fast bis
gar nie àndern, in's Verzeichniss der FE zu kopieren. Als Beispiel möchte
ich die PDF-Dll's von Stephen Lebans kopieren. Es kann aber sein, dass eine
Datei auch einmal überschrieben werden muss.
Was mache ich falsch oder wie kann ich es anders machen?

Gruss
Thomas
 

Lesen sie die antworten

#1 Thomas Winkler
23/10/2009 - 16:39 | Warnen spam
Hi,

[F1] FileCopy kennst Du? :-)

HTH

Thomas

"Access? Damit arbeite ich nicht. Das ist doch nur ein abgespecktes Excel."

Ähnliche fragen