Scripting.FileSystemObjec

[Easy]

Hallo Leute,

ich habe folgenden Code:

Dim filesys, txtfile

Set filesys = CreatObject("Scripting.FileSystemObject")
    Set txtfile = filesys.CreateTextFile("C:\User1\Gb.txt" , 1)

strline = txtfile.Readline

txtfile.close
    Set filesys = nothing

Leider funktioniert der nicht, kann mir jemand sagen warum ??

Vielen DAnk

Easy