'随机生成一个临时文件名
tname = fso.GetTempName
'在Temp临时文件夹下面，创建一个临时文件
Set tfile = tfolder.CreateTextFile(tname)
'将结果赋值给函数
Set CreateTempFile = tfile
End Function
备注：GetTempName 方法不创建文件，该方法仅提供临时文件名。示例中的的结果，默认保存在C:/Documents and Settings/Administrator/Local Settings/Temp
OpenTextFile的使用
方法名：(filename,iomode,create,format)
说明：打开指定的文件并返回一个 TextStream 对象，可以读取、写入此对象或将其追加到文件。详细的说明见表7.
示例：
Dim spec
spec = "C:/testing.txt"
'三个参数的分别为：以只读模式打开文件、以只写方式打开文件、打开文件并在文件末尾进行写操作
Const intForReading = 1,intForWriting = 2,intForAppending = 8
'调用OpenTextFileTest()
Call OpenTextFileTest(spec,intForAppending)
Sub OpenTextFileTest(sepc,intForAppending)
Dim fso,objTStream
'创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")
'参数true表示：如果文件不存在，则创建文件。最后OpenTextFile()将返回TextStream对象
Set objTStream = fso.OpenTextFile(sepc,intForAppending,true)
'利用TextStream对象来将字符串写入文件
objTStream.write "hello word!"
'释放TextStream对象
objTStream.close
End Sub
File对象所提供的属性
|
表8 File 对象的属性及说明 |
|
|
属性 |
说明 |
|
Attributes |
返回文件的属性。可以是下列值中的一个或其组合：Normal(0)、ReadOnly(1)、Hidden(2)、System(4)、Volume(名称)(9)、Directory(文件夹)(16)、Archive(32)、Alias(64) 和 Compressed(128) |
|
DateCreated |
返回该文件夹的创建日期和时间 |
|
DateLastAccessed |
返回最后一次访问该文件的日期和时间 |
|
DateLastModified |
返回最后一次修改该文件的日期和时间 |
|
Drive |
返回该文件所在的驱动器的 Drive 对象 |
|
Name |
设定或返回文件的名字 |
|
ParentFolder |
返回该文件的父文件夹的 Folder 对象 |
|
Path |
返回文件的绝对路径，可使用长文件名 |
|
ShortName |
返回 DOS 风格的 8.3 形式的文件名 |
|
ShortPath |
返回 DOS 风格的 8.3 形式的文件绝对路径 |
|
Size |
返回该文件的大小（字节） |
|
Type |
如果可能，返回一个文件类型的说明字符串（例如：“Text Document”表示 .txt 文件） |
