怎么找不到filesystemobject.txt

VB技巧问答10000例 VB技巧问答10000例

FileSystemObject并 不 是 一 个 控 件 ， 它 只 是 一 个 类 。 你 可 以 选 择 “ 工 程 |引 用 ” ， 在 其 中 可 以 选 择 Microsoft Scripting Runtime。 然 后 你 就 可 以 使 用 了 ， 如 
     'Declare variables. 
     Dim fso As New FileSystemObject 
     Dim ts As TextStream 
     'Open file. 
     Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini") 
     'Loop while not at the end of the file. 
     Do While Not ts.AtEndOfStream 
     Debug.Print ts.ReadLine 
     Loop 
     'Close the file. 
     ts.Close 
<END>