txt einlesen - lokales Lw = ok - NetzLw = Probleme

23/06/2009 - 12:27 von Steffen Brose | Report spam
Hallo Miteinander,
ich hab ein für mich unlösbares Problem
- habe Stunden probiert = 0
Mit diesem Code lese ich Inhalte von *.txt
in die Memo. Funktioniert 1A , aber nur wenn
das QuellVerzeichnis auf C: (Platte) steht.
Bei einem Netzlauwerk versagt das Teil (+ich)
In der Schleife wird der strFileName noch korrekt
gefüllt, aber strFileContents ist dann leer...

An der Netzverzeichnissen kann es eigentlich nicht liegen.
Im nachfolgenden Code kopiere und löche ich in dem Netzverzeichnis
Dateien und dies funktioniert ohne Problem...

Vielen Dank für Eure Hilfe

Gruß Steffen






Dim db As DAO.Database
Const Q As String * 1 = """"
Set db = CurrentDb


VerzPE4 = VerzPosteingang & "*.txt"
strFileName = Dir(VerzPE4)


While strFileName <> ""

'Name wird auch bei Netz LW korrekt angezeigt

strFileContents = readFileIntoString(strFileName) ' bei NetzLw = Ergebnis leer

If strFileContents <> "" Then


db.Execute "INSERT INTO [TAB05] (Art, Txt_der_TXT, Bezeichnung) " & _
" VALUES ( " & _
Q & strFileName & Q & ", " & _
Q & strFileContents & Q & ", " & _
Q & StartUpComment & Q & ")"

End If

strFileName = Dir()
Wend


Public Function readFileIntoString(strTextFile As String, Optional
fShowErrorMessage As Boolean = True) As Variant
On Error GoTo HandleErrors
Dim intFileNo As Integer, strTxtStream As String
intFileNo = FreeFile
Open strTextFile For Binary As #intFileNo
strTxtStream = Space(LOF(intFileNo))
Get #intFileNo, , strTxtStream
strTxtStream = LTrim(strTxtStream)
readFileIntoString = RTrim(strTxtStream)
ExitHere:
On Error Resume Next
Close intFileNo
Exit Function
HandleErrors:
If fShowErrorMessage Then
MsgBox "Error " & Err & vbCrLf & _
"Description:" & vbCrLf & Err.Description, vbCritical, _
"Error while reading file " & strTextFile
End If
Resume ExitHere
End Function
 

Lesen sie die antworten

#1 Andreas Vogt
23/06/2009 - 13:03 | Warnen spam
Hallo,
was steht denn genau in VerzPosteingang drin?
Hast du mal den Debuger laufen gehabt?
Du solltest übrigends auch . und .. ausschließen:
If FileName <> "." And FileName <> ".." then
Andreas

Ähnliche fragen