Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何判断某个文件夹是否存在

悠悠  发表于:2008-07-23 16:41:39  
复制

如题,如何用VBA代码判断某个文件夹是否存在?

 

Top
sosopain 发表于:2008-07-24 12:32:18


sosopain 发表于:2008-07-24 12:34:49


sosopain 发表于:2008-07-24 12:35:43

都在帮助文件里面

 

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 方法刷新缓冲区并关闭文件。

 

Folders 集合
请参阅     示例     属性     方法     事件     特性

描述

包含在一个 Folder 对象内的所有 Folder 对象的集合。

说明

下面的代码举例说明了如何获得一个 Folders 集合,以及如何用 For Each...Next 语句来访问该集合中的每个Folder:

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    For Each f1 in fc
        s = s & f1.name
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

Folder 对象

 

请参阅     示例     属性     方法     事件     特性

 

描述提供对一个文件夹所有属性的访问。说明下面的代码举例说明了如何获得一个 Folder 对象,以及如何返回它的一个属性:Sub ShowFolderInfo(folderspec)
    Dim fs, f, s,
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    s = f.DateCreated
    MsgBox s
End Sub

 



悠悠 发表于:2008-07-25 16:42:34

以上的代码很烦琐,我自己搞了一个简单的,现将代码帖出来供有需要的人参考:

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists("C:\Documents and Settings\huangjianfeng") Then

End If



总记录:4篇  页次:1/1 9 1 :