20100619 学习记录：vb6.0 OpenTextFile 写记录

  Public Sub Mylog(ByRef Str As String)

    Dim objFSO, objText As Object
    objFSO  =  CreateObject( " Scripting.FileSystemObject " )
    objText  =  objFSO.OpenTextFile( " C:\Temp\LeeSearchXv2_log.txt " ,  8 , True)

    objText.WriteLine(VB6.Format(Now,  " yyyy-mm-dd hh:mm:ss  " )  &  Str)
    objText.Close()
  End Sub

关于OpenTextFile

在网上查了不少资料，很多代码都直接用 fso.OpenTextFile("c:\xxxx.txt", ForReading) 这种格式

可是我自己试了就不行，每次都会报错说不识别参数 - =

最后发现还是用数字牢靠...  - =

ForReading 1

ForAppending 8

 

 →以下部份引用自 Visual Studio 6 MSDN 光碟

 

OpenTextFile 方法

描述

開啟一個指定的檔案並傳回一個 TextStream 物件，該物件可用於對檔案進行讀取或附加寫入。

準備工作

1. 進入VB6, 點選 MENU / Project / References
2. 點選 Microsoft Scripting Runtime, 並確定引用此 .dll 檔

語法

object.OpenTextFile(filename[, iomode[, create[, format]]])

OpenTextFile 方法有如下幾個單元：

單元	描述
Object	必要引數。始終是一個 FileSystemObject 的名字。
filename	必要引數。字串運算式，它標識了開啟的檔案。
iomode	選擇性引數。表示輸入/輸出模式。可為兩個常數之一：ForReading或ForAppending。
create	選擇性引數。Boolean 值，它表示如果指定的 filename 不存在是否可以建立一個開新檔案。如果建立開新檔案，其值為 True。若不建立檔案其值為 False。預設值為 False。
format	選擇性引數。三種 Tristate 值之一，用於指定開啟檔案的格式。如果省略，則檔案以 ASCII 格式開啟。

設定

iomode 引數可為下面設定值的任何一個：

常數		描述
ForReading	1	開啟一個唯讀檔案。無法對此檔案進行寫入。
ForAppending	8	開啟一個檔案並寫輸出至檔案的尾部。

Format 引數可為下面設定值的任何值：

常數		描述
TristateUseDefault	–2	使用系統預設開啟檔案。
TristateTrue	–1	以 Unicode 格式開啟檔案。
TristateFalse	0	以 ASCII 格式開啟檔案。

請注意

範例1:
下面的程式碼舉例說明了使用 OpenTextFile 方法開啟並讀取一個文字檔：

Sub OpenTextFileTest
 Const ForReading = 1
 Dim fso as FileSystemObject
 Dim fid as TextStream

 Set fso = CreateObject("Scripting.FileSystemObject")
 Set fid = fso.OpenTextFile("c:\testfile.txt", ForReading)
 MsgBox fid.ReadLine
 fid.Close
End Sub





     
       

 
範例2: 
下面的程式碼舉例說明了使用 OpenTextFile 方法開啟並附加(Append)文字於該文字檔：
 
Sub OpenTextFileTest
 Const ForAppending = 8
 Dim fso as FileSystemObject
 Dim fid as TextStream

 Set fso = CreateObject("Scripting.FileSystemObject")
 Set fid = fso.OpenTextFile("c:\testfile.txt", ForAppending)
 fid.WriteLine "This is a new line!"
 fid.Close
End Sub

 

---

 

存檔的方法如下:
'FileSystemObject 在 Scrrun.dll 中可以找到 (引用 Scrrun.dll)
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\test.txt", True)
a.WriteLine (Text1.Text)
a.Close

使用FSO是為了讀取UNICODE編碼的檔案
 Set FSO = CreateObject("Scripting.FileSystemObject")
 Set FS = FSO.OpenTextFile(path, 1, , -1)
第4個參數傳以-1即可以UNICODE LE編碼讀取文字檔案
http://tw.group.knowledge.yahoo.com/students-1/message_board/view?tid=1&sortorder=D

 

如何用VB6 開啟文字檔使用檔案系統物件(FileSystemObject)

' 需要一個Command Button
Private Sub Command1_Click()
   
    Dim objFile As Object
    OpenFile objFile,  " C:\123.txt " , False, False
     ' 參數1:File 物件,參數2:路徑+名稱,參考3:是否要覆蓋(參數4為True 才有作用),參數4:是否要建立新文字檔
'     If Not objFile.AtEndOfLine Then
'         MsgBox objFile.readall       ' 全部讀出
'     End If
    Do While Not objFile.AtEndOfLine
        MsgBox objFile.ReadLine      ' 只讀取1行
    Loop
End Sub

Public Function OpenFile(ByRef objFile As Object, _
            ByVal FilePath As String, _
            Optional OverWrite As Boolean  =  True, _
            Optional blnCreate As Boolean  =  True) As Boolean
    On Error GoTo ChkErr
    Dim fso As Object
        Set fso  =  CreateObject( " Scripting.FileSystemObject " )
        If Not fso.FolderExists(Left(FilePath, InStrRev(FilePath,  " \ " ))) Then
            MsgBox  " 路徑不正確! " , vbExclamation,  " 警告... "
            OpenFile  =  False
            Exit Function
        End If
       
        If fso.FileExists(FilePath) Then
             ' ReadOnly=1 是否為唯讀
            If fso.GetFile(FilePath).Attributes  =   1  Then
               MsgBox  " 使用者沒有  "   &  FilePath  &   "  的使用權限 " , vbExclamation,  " 警告 "
               OpenFile  =  False
               Exit Function
            End If
        End If
        If blnCreate Then   ' 建立
            Set objFile  =  fso.CreateTextFile(FilePath, OverWrite)
        Else                      ' 讀取
             ' ForReading
            Set objFile  =  fso.OpenTextFile(FilePath,  1 )
        End If
        OpenFile  =  True
        Set fso  =  Nothing
Exit Function
ChkErr:
    MsgBox Err.Number  &   " , "   &  Err.Description
End Function

http://blog.blueshop.com.tw/zeasychen/archive/2006/11/07/44621.aspx
 

 

---

 FileSystemObject是包含在Microsoft脚本运行时间中的一个对象，对象中的函数提供了读写文本文件的功能。  

你可以通过调用OpenTextFile方法来读取一个文本文件。OpenTextFile方法的第一个参数是指定打开的文件名；第二个参数是指定文件是读取，增添，或者写入；第三个参数决定当指定的文件名不存在时新的文件是否要建立；第四个参数指定文件的格式是ASCII 还是Unicode。这一方法返回的是一个TextStream对象。

下面的代码段将一个文本文件中的内容读入一个TextBox控件。TextStream中的ReadAll方法用于读出文件的内容，然后使用Close方法来关闭文件。

Dim objFSO As FileSystemObject
Dim objText As TextStream

Set objFSO = New FileSystemObject

Set objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
              ForReading, False, TristateUseDefault)
Text1.Text = objText.ReadAll()
Call objText.Close

为了能够在一个文本文件中写入内容，可以先打开文件，然后使用TextStream中的Write方法输入需要的值。

Set objText = objFSO.OpenTextFile(App.Path & "\temp.txt", _
              ForWriting, False, TristateUseDefault)
Call objText.Write(Text1.Text)
Call objText.Close

---

 

 

文件系统对象

文件系统对象　

Visual Basic 的一个新功能是 File System Object (FSO) 对象模型，该模型提供了一个基于对象的工具来处理文件夹和文件。这使您除了使用传统的 Visual Basic 语句和命令之外，还可以使用您所熟悉的带有一整套属性、方法和事件的 object.method 语法来处理文件夹和文件。

FSO 对象模型使应用程序能够创建、改变、移动和删除文件夹，或者检测是否存在指定的文件夹，及文件夹的位置。FSO 对象模型也能使您获取关于文件夹的信息，诸如名称、创建日期或最近修改日期等等。

FSO 对象模型也使得对文件的处理变得更加简单。在处理文件时，首要目标就是以一种可以有效利用空间和资源、并且易于存取的格式来存储数据。需要能够创建文件、插入和修改数据、以及输出（读）数据。虽然可以将数据存储在诸如 Jet 或 SQL 这样的数据库中，但是这样做将在应用程序中加入相当数量的额外开支。出于多种原因，您不想有这样的额外开支，或者数据存取要求不需要用一个与全功能数据库关联的所有额外功能。在这种情况下，用二进制或文本文件来存储数据是最有效的解决方法。

包含在 Scripting 类型库 (Scrrun.Dll) 中的FSO 对象模型支持通过 TextStream 对象创建和操作文本文件。但是，它还不支持二进制文件的创建和操作。要操作二进制文件，请使用带 Binary 标志的 Open 命令。

一、FSO简介

在编程中，我们经常需要对文件系统中的驱动器、文件夹和文件进行处理，比如收集驱动器的相关信息；创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO（File System Object）对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的工具，通过它所提供的一系列属性和方法，我们可以在应用程序中更简单、灵活地对文件系统进行各种操作。 FSO对象模型包含以下几种对象：

(1) Drive对象：允许收集关于系统所用的驱动器的信息，诸如驱动器有多少可用空间，其共享名称是什么，等等。请注意，一个“驱动器”并不一定是一个硬盘。它可以是 CD-ROM 驱动器、一个RAM 盘等等。而且，驱动器不一定是和系统物理地连接；也可以通过一个 LAN进行逻辑地连接。

(2) Folder对象：允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等。

(3) Files对象：允许创建、删除或移动文件，并向系统查询文件的名称、路径等。

(4) TextStream对象：用来创建和读写文本文件。

(5) FileSystemObject对象：该组的主要对象，提供一整套用于创建、删除、收集相关信息、以及通常的操作驱动器、文件夹和文件的方法。与本对象相关联的很多方法复制了其它对象中的方法。

FSO对象模型包含在一个称为Scripting的类型库中，此类型库位于Scrrun.dll文件中，可从“工程”选单的“引用”对话框中选择“Microsoft Scripting Runtime”项来引用此文件，如图10－5所示。

创建一个FileSystemObject对象，可以通过如下两种方法来完成：

(1) 将一个变量声明为FileSystemObject对象类型：Dim fso As New FileSystemObject；

(2) 使用CreateObject方法来创建：Set fso=CreateObject(“Scripting.FileSystemObject”)。

二、对驱动器的操作

对驱动器的操作主要通过Drive对象并配合FileSystemObject对象，FSO不支持进行创建或删除驱动器的操作，而只处理收集关于系统所用驱动器的信息。通过该对象的属性可以获得下列信息：

(1) 以字节表示的驱动器可用空间(AvailableSpace或FreeSpace)；

(2) 为驱动器指定的字母号(DriveLetter)；驱动器类型(DriveType)；

(3) 驱动器使用的文件系统类型，诸如FAT、FAT32、NTFS等(FileSystem)；

(4) 驱动器是否可用(IsReady)；

(5) 驱动器的路径或根文件夹(Path和RootFolder)；

(6) 驱动器序列号(SerialNumber)；共享名或卷标名(ShareName和VolumeName)；

(7) 以字节表示的驱动器总空间(TotalSize)。

例10-6中按钮GetFreeSpace的操作演示了如何获取C盘磁盘空间信息，格式化后显示在文本框txShow中，代码及说明如下：

Private Sub GetFreeSpace_Click()

Dim fso As New FileSystemObject

Dim drv As Drive, str As String

Set drv = fso.GetDrive(fso.GetDriveName("c:")) '获取Dirve对象

txShow.Text = "C盘实际大小：" + FormatNumber(drv.TotalSize / 1024, 0) + "Kb" + Chr(13) + Chr(10)

txShow.Text = txShow.Text + "剩余空间：" + FormatNumber(drv.FreeSpace / 1024, 0) & "Kb"

End Sub

三、对文件夹的操作

　　 Folder对象答应通过所提供的方法来复制（Copy）、删除（Delete）或移动（Move）文件夹，并通过其属性向系统查询其名称（Name）、路径（Path）以及创建日期（DateCreated）等。FileSystemObject 对象对文件夹的操作方法有创建（CreateFolder）、复制（CopyFolder）、移动（MoveFolder）和删除（DeleteFolder）。在进行上述操作之前，首先要获得该文件夹的访问句柄（GetFolder）。

例10-6中按钮OperateFloder的操作演示了如何获取一个文件夹的基本信息，并且格式化后显示在文本框txShow中；如何创建一个文件夹及删除，详细代码及说明如下：

Private Sub OperateFloder_Click()

Dim fso As New FileSystemObject, fldr As Folder

'获得当前文件夹的访问句柄

Set fldr = fso.GetFolder("c:\windows\system")

'显示父文件夹

txShow.Text = "c:\windows\system的父文件夹:" + fldr.ParentFolder

'显示驱动器名

txShow.Text = txShow.Text + Chr(13) + Chr(10) + "驱动器名称:" + fldr.Drive

'用FileSystemObject对象创建一个新的文件夹

fso.CreateFolder ("c:\Temp")

'删除新建的文件夹

fso.DeleteFolder ("c:\Temp")

End Sub

函数新创建一个对象， 函数会返回一个句柄到新创建的对象，这时只要设置一个变量来获取该句柄即可，不必再用“Get”方法。如：Set fldr=fso.CreateFolder(〃C:\Temp2〃)。

四、对文件的读写操作

读写文件，在VB6之前都是使用Open等语句来实现，FSO支持通过TextStream对象来创建和读写文本文件。

FSO通过CreateTextFile、 OpenTextFile、OpenAsTextStream 三种方法来创建一个顺序文本文件。文件创建后，就可分三步写入数据：

(1) 利用FileSystemObject对象的OpenTextFile方法或File对象的OpenAsTextStream 方法打开文本文件以备写入数据。

(2) 使用TextStream 对象的Write、WriteLine或WriteBlankLines方法写入数据。

(3) 使用TextStream对象的Close方法关闭文件。

我们可使用TextStream 对象的Read、ReadLine或ReadAll方法从一个文本文件中读取数据。例10-6中按钮WirteFile的单击事件实现了在C盘的根目录下创建了一个文本文件，分别使用Write、WriteLine、WriteBlankLines向其中写入信息。详细代码及说明如下：

Private Sub WirteFile_Click()

Dim fso, txtfile

Set fso = CreateObject("Scripting.FileSystemObject")

Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)

txtfile.Write ("这是一个测试例子。") ' 写入一行。

' 写入一行带有换行符的文本。

txtfile.WriteLine ("Testing 1, 2, 3.")

' 向文件中写入三个换行符。

txtfile.WriteBlankLines (3)

txtfile.Close

End Sub

例10-6中按钮ReadFile的单击事件实现了打开c:\testfile.txt，读取其中的信息并显示在文本框中。详细代码及说明如下：

Private Sub ReadFile_Click()

Dim fso As New FileSystemObject, fil1 As File

Set fil1 = fso.GetFile("c:\testfile.txt")

' 读取文件的内容。

Set ts = fil1.OpenAsTextStream(ForReading)

s = ts.ReadLine

ts.Close

txShow.Text = s

End Sub

五、移动、复制和删除文件

　 除了创建与读写文件之外，VB6还可通过FileSystemObject对象对文件进行复制（CopyFile）、移动（MoveFile）与删除（DeleteFile）等操作，在File对象中等效的方法有Copy 、Move和Delete，如表10-2。

任务	方法
移动一个文件	File.Move 或FileSystemObject.MoveFile
复制一个文件	File.Copy 或FileSystemObject.CopyFile
删除一个文件	File.Delete 或FileSystemObject.DeleteFile

表10-2 File对象操作表

例10-6中按钮OperateFile的单击事件实现了在C盘的根目录下创建了一个文本文件，并向其中写入一些信息，然后将该文件移至一个名叫 \tmp 的目录，并复制到一个叫 \temp 的目录下，最后删掉该文件在这两个子目录下的拷贝。详细代码及说明如下：　　

Private Sub OperateFile_Click()

Dim fso As New FileSystemObject, txtfile, fil1, fil2

'如果不存在，先创建c:\temp和c:\temp文件夹,

If Not fso.FolderExists("c:\tmp") Then

    fso.CreateFolder ("c:\tmp")

End If

If Not fso.FolderExists("c:\temp") Then

    fso.CreateFolder ("c:\temp")

End If

Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)

MsgBox "写入文件"

' 写入一行。

txtfile.Write ("这是一个测试例子。")

' 关闭要写入的文件。

txtfile.Close

MsgBox "移动文件到 c:\tmp"

' 获得C盘根目录下的一个文件句柄。

Set fil1 = fso.GetFile("c:\testfile.txt")

' 将该文件移至 \tmp 目录下。

fil1.Move ("c:\tmp\testfile.txt")

MsgBox "复制文件到 c:\temp"

' 将该文件复制到 \temp 目录下。

fil1.Copy ("c:\temp\testfile.txt")

MsgBox "删除文件"

' 获得这些文件当前位置的句柄。

Set fil1 = fso.GetFile("c:\tmp\testfile.txt")

Set fil2 = fso.GetFile("c:\temp\testfile.txt")

' 删除这些文件。

fil1.Delete

fil2.Delete

MsgBox "全部完成！"

End Sub

（http://vbpro.gnnu.cn/List.asp?ID=244）  

 

 http://www.programfan.com/article/706.html

http://group.gimoo.net/review/143863