Excel VBA常见问题:关于FileSystemObject的引用

2015-04-14 17:12 阅读 395 次 评论关闭

Excel VBA常见问题关于FileSystemObject引用
请问各路高手,有人可以为我指点一下filesystemobject引用的详细说明,特别是fileexists方法的实例。

解答:

Sub testing()
    '先判断文件是否存在,是则删除之
    
    Dim strmyfile As String
    strmyfile = "d:\book1.xls"
    If filetoFind(strmyfile) Then
        Kill strmyfile
    End If
    
End Sub

Function filetoFind(fileName As String) As Boolean
    Dim fsobj As Object
    Set fsobj = CreateObject("Scripting.FileSystemObject")
    If fsobj.fileexists(fileName) Then
        filetoFind = True
    End If
End Function
在帮助文件中是这样描述的:FileSystemObject 对象

描述:提供对计算机文件系统的访问。
语法:Scripting.FileSystemObject
说明:下面的代码举例说明了如何使用 FileSystemObject 返回一个 TextStream 对象,该对象是可读并可写的:
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\testfile.txt", True)
a.WriteLine("This is a test.")
a.Close

在上面列出的代码中,CreateObject 函数返回 FileSystemObject (fs)。CreateTextFile 方法接着创建文件作为一个 TextStream 对象(a),而 WriteLine 方法则向创建的文本文件中写入一行文本。Close 方法刷新缓冲区并关闭文件。

FileExists 方法

描述:如果指定的文件存在,返回 True,若不存在,则返回 False。
语法:object.FileExists(filespec)
FileExists 方法语法有如下几部分:
部分 描述:object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要确定是否存在的文件的名字。如果认为文件不在当前文件夹中,必须提供一个完整的路径说明(绝对的或相对的)。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel VBA常见问题:关于FileSystemObject的引用 | 猎微网

评论已关闭!