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>