3
Schreiben in leere Datei
String ans Ende einer Datei
Set Datei = CreateObject("Scripting.FileSystemObject").OpenTextFile(DateiAus, 8)
'Set Datei = fso.CreateTextFile(DateiEin, True)
Datei.WriteLine "ende"
Datei.Close
Die funktioniert, solange die Datei nicht leer ist.
Ich möchte gerne Eine Datei prüfen ob vorhanden und an das Ende der Datei einen String schreiben ("ende")
AUch dann wenn die Datei leer ist
Set Datei = CreateObject("Scripting.FileSystemObject").OpenTextFile(DateiAus, 8)
'Set Datei = fso.CreateTextFile(DateiEin, True)
Datei.WriteLine "ende"
Datei.Close
Die funktioniert, solange die Datei nicht leer ist.
Ich möchte gerne Eine Datei prüfen ob vorhanden und an das Ende der Datei einen String schreiben ("ende")
AUch dann wenn die Datei leer ist
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 106474
Url: https://administrator.de/contentid/106474
Ausgedruckt am: 15.11.2024 um 23:11 Uhr
3 Kommentare
Neuester Kommentar
Hi,
prüfe doch vorher die Grösse mit
If Datei.Size > 0 Then
xxx
else
yyy
end if
Und hier solltest bzgl der Syntax auch fündig werden. http://msdn.microsoft.com/en-us/library/czxefwt8(VS.85).aspx
Gruß,
Sven
prüfe doch vorher die Grösse mit
If Datei.Size > 0 Then
xxx
else
yyy
end if
Und hier solltest bzgl der Syntax auch fündig werden. http://msdn.microsoft.com/en-us/library/czxefwt8(VS.85).aspx
Gruß,
Sven
Hallo mctini!
Das Schreiben auch in eine leere Datei sollte mit dem von Dir vorgeschlagenen "Append" (,8) kein Problem sein - bliebe nur, vorweg zu prüfen, ob die Datei bereits existiert:
[Edit]
Wieso einfach, wenn es doch auch schön umständlich geht ...
Natürlich funktioniert das "Append" auch, wenn es die Zieldatei noch nicht gibt - dazu den dritten Parameter ("Create") auf True oder 1 setzen:
[/Edit]
Grüße
bastla
Das Schreiben auch in eine leere Datei sollte mit dem von Dir vorgeschlagenen "Append" (,8) kein Problem sein - bliebe nur, vorweg zu prüfen, ob die Datei bereits existiert:
DateiAus = "D:\Test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(DateiAus) Then
Set Datei = fso.OpenTextFile(DateiAus, 8)
Else
Set Datei = fso.CreateTextFile(DateiAus)
End If
Datei.WriteLine "ende"
Datei.Close[Edit]
Wieso einfach, wenn es doch auch schön umständlich geht ...
Natürlich funktioniert das "Append" auch, wenn es die Zieldatei noch nicht gibt - dazu den dritten Parameter ("Create") auf True oder 1 setzen:
DateiAus = "D:\Test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set Datei = fso.OpenTextFile(DateiAus, 8, 1)
Datei.WriteLine "ende"
Datei.CloseGrüße
bastla
Ja stimmt es funktioniert auch wenn die Datei leer ist.
Trotzdem bekomme ich von Zeit zu Zeit eine Fehlermeldung.. Zugriff verweigert.
Es liegt mit Sicherheit daran das die Datei von einer anderen Anwendung geöffnet ist.
Die Flashanimation greift alle 20 sec. zum auslesen der Datei auf die DatAus. also sollte ich hier wohl prüfen
ob die Datei geöffnet ist.
Nur leider reichen meine Kenntnisse bei Weitem nicht um diese Abfrage zu schreiben.
Wenn es Sinn macht stelle ich mir es so vor.
Schleife solage bis Datei geschlossen, wenn Zugriff vorhanden dann lösche alles was |S| hat und beschränke auf Zeilen Anzahl.(letzteres geht ja schon hervorragend)
Trotzdem bekomme ich von Zeit zu Zeit eine Fehlermeldung.. Zugriff verweigert.
Es liegt mit Sicherheit daran das die Datei von einer anderen Anwendung geöffnet ist.
Die Flashanimation greift alle 20 sec. zum auslesen der Datei auf die DatAus. also sollte ich hier wohl prüfen
ob die Datei geöffnet ist.
Nur leider reichen meine Kenntnisse bei Weitem nicht um diese Abfrage zu schreiben.
Wenn es Sinn macht stelle ich mir es so vor.
Schleife solage bis Datei geschlossen, wenn Zugriff vorhanden dann lösche alles was |S| hat und beschränke auf Zeilen Anzahl.(letzteres geht ja schon hervorragend)
