Hallo Leute!
Ich brauche drigend eure Hilfe. Und zwar habe ich ein Formular bei Access mit einem Buton.
Wenn ich den Buton drücke möchte ich gerne, dass eine PDF-Datei von einem bestimmten Ort zu einem anderen kopiert wird und anschließend umbenannt wird. Der neue Name soll von einem Feld (NR) übernommen werden.
Könnt ihr mir helfen?
Gruß
Hallo
Zunächst einen Verweis auf Microsoft Scripting Runtime setzen
Private Sub Befehl1_Click()
Dim objFSO As Scripting.FileSystemObject
Dim objFile As Scripting.File
Dim Quelle As String
Dim Ziel As String
Quelle = „C:\Test2\abc.pdf“
Ziel = „C:\test\xyz.pdf“
Set objFSO = New Scripting.FileSystemObject
Set objFile = objFSO.GetFile(Quelle)
objFSO.CopyFile Quelle, Ziel, True
End Sub
In diesem Beispielcode wird die Datei abc.pdf aus dem Ordner Test2 nach Test kopiert und in xyz.pdf umbenannt.
Unter der Webadresse http://www.access-im-unternehmen.de/index1.php?id=30… ist eine umfangreiche Beschreibung zum Scripting FilesystemObject zu finden.
Wolfgang
Hallo Leeesumer
das machst du am einfachsten mit der fso (FileSystemObject) Methode. Hier eine deutsche Anleitung dafür:
http://www.access-im-unternehmen.de/index1.php?id=30…
und hier dasselbe in Englisch:
http://www.ezidata.com.au/tutorials/Working_With_Fil…