Ja ich würde gerne eine Datei im Dateisystem von Windows verschieben.
Laut Hilfe reicht:
Name strFileSource as strFileTarget
Leider bekomme ich halt unregelmässig die Meldung, dass ich keine Rechte auf die Datei hätte.
@M3
Wieso sollte das jetzt ein Scherz sein? Das ist der Code mit dem ich die Datei umbennen /verschieben will.
.....
' Bereits vorhandene PDF löschen, weil sonst das Umbenennen nicht klappt!
If Dir(pdffile) <> "" Then
Kill pdffile
End If
' Raussuchen der PDF
Dim strFile As String
On Error GoTo NotReadyToAttach
NextTrial:
strFile = Dir$(PDFPATH)
If strFile = "" Then GoTo NotReadyToAttach
zwschn = CStr(PDFPATH) + strFile
pdffile = pdffile
On Error GoTo errFileHandling
' Erzeugte PDF umbenennen
Name CStr(zwschn) As CStr(pdffile)
'FileCopy zwschn , pdffile
'Kill zwischn
....
Der Code läuft immer im Client. Die allgemeine Vorgehensweise ist folgende.
User drückt auf Button "Erzeuge PDF" , dann folgt der Druckdialog, in der der User einen PDFPrinter auswählt. Der PDF-Drucker ist so eingestellt, dass er die PDF in einem speziellen Verzeichnis anlegt. Dieses Verzeichnis hat zur Laufzeit immer nur das eine Dokument in sich. (Leider können wir den Namen des PDF nicht immer vorraus sagen, da es verschiedene Drucker gibt). Das gefundene Dokument soll in ein anderes Verzeichnis gepackt und umbenannt werden. Und genau hier knallt es immer wieder. Habe ein Errorhandling, dass beim Fehler im Dateisystem es immer wieder für 15 sekunden versucht. Es könnte ja sein, dass der Drucker noch nicht fertig ist.