Schreiben in Datei unter Office 2003
18.07.2005 17:46:48
tobias
ich hab eine Prozedur die lange gelaufen ist. Jetzt wurde Office 2003 installiert (unter WIN XP). Seit dem kann die CreateDoc.log nicht mehr mit Open sLogPath For Output As #lFnr erzeugt werden. Fehlermeldung "Datei nicht vorhanden". Wenn sie händisch angelegt wird kommt die Fehlermeldung "Falscher Dateimodus". Kann mir jemand sagen was da los ist?
Sub Logger(sText As String)
Dim sLogPath As String, lFnr As Long
Static bAppend As Boolean
On Error GoTo ERRORHANDLE
sLogPath = ThisWorkbook.Path & "\CreateDoc.log"
lFnr = FreeFile
If bAppend = False Then
Open sLogPath For Output As #lFnr
Write #lFnr, sText
Close #lFnr
Else
Open sLogPath For Append As #lFnr
Write #lFnr, sText
Close #lFnr
End If
bAppend = True
Exit Sub
ERRORHANDLE:
MsgBox "Beim schreiben der Logdatei ist es zu einem Fehler gekommen!" & vbCr _
& "Parameter:" & vbCr _
& "- FreeFile: " & lFnr & vbCr _
& "- Pfad: " & sLogPath & vbCr _
& "- Open: " & bAppend & vbCr & vbCr _
& "Meldung:" & vbCr _
& "- " & Err.Description & vbCr & vbCr _
& "Hinweise:" & vbCr _
& "- Das Zip-Archiv muss entpackt worden sein." & vbCr _
& "- Die Verzeichnisstruktur der entpackten Dateien müssen beibehalten werden." & vbCr _
& "- Überprüfen Sie Ihre Rechte auf das Verzeichnis", vbCritical, "CreateWordDoc"
Err.Clear
End Sub
mfg Tobias
*** http://www.tubias.de ***