800A003E - "Eingabe hinter Dateiende"

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    800A003E - "Eingabe hinter Dateiende"

    Tach auch,

    schreibe gerade an einer kleinen Routine, per VBS Desktop-Verknüpfungen zu erstellen. Namen der Links werden anhand einer Textdatei generiert.

    An sich nichts großes, nur erscheint o.g. Fehlercode beim Auslesen der Datei. Hier in Zeile 15

    Visual Basic-Quellcode

    1. Set FSO = CreateObject("Scripting.FileSystemObject")
    2. Set Dictionary = CreateObject("Scripting.Dictionary")
    3. Const ForReading = 1
    4. Set File = FSO.OpenTextFile ("c:\test.txt", ForReading)
    6. i = 0
    8. Do Until File.AtEndOfStream
    9. strNextLine = File.Readline
    10. If strNextLine <> "" Then
    11. Dictionary.Add i, strNextLine
    12. str = File.ReadLine
    14. <hier wird die Zeile gesplittet und der Link erstellt>
    16. i = i + 1
    17. End If
    18. Loop
    20. File.Close


    Danke schonmal im Voraus!

Facebook
Telefonspende