◆判断文件夹存在及创建文件夹的函数
以下是一个判断文件夹是否存在的函数，我想增加多一个功能，就是如果判断为假时，自动创建一个文件夹？
请问要如何修改程序，谢谢。
Private Function IsDirExist(ByVal sDirName As String) As Boolean
Dim o_strPath As String
On Error Resume Next
o_strPath = CurDir
ChDir sDirName
If Err.Number <> 0 Then
IsDirExist = False
Else
IsDirExist = True
End If
ChDir o_strPath
End Function
调用时判断：
dd = IsDirExist( "d:\job0 ")
[解决办法]
if IsDirExist( "d:\job0 ") = False then
mkdir( "d:\job0 ")
end if
[解决办法]
用OPEN打开时，没有就创建了文件
想做判断，需要在OPEN之前加以判断就行了
[解决办法]
Dim FileNumber as Integer
Dim StrTemp as string
FileNumber = FreeFile
if dir(FilePath)= " " then
Open FilePath For Binary As FileNumber
Close FileNumber
else
'获取文件名 和文件后缀
FileNumber = FreeFile
FilePath = 文件名 & "a. " & 文件后缀
Open FilePath For Binary As FileNumber
Close FileNumber
end if
[解决办法]
set fs as filesystemobject
set txtf as textstream
if fs.fileexist( "c\test.txt ") then
对文件进行处理
else
set txtf=fs.createtextfile( "c:\test.txt ")
endif
楼主要这个？
[解决办法]
s使用FSO吧,他有方法检查文件,文件夹是否存在,新建文件,文件价
基本上和文件相关的操作他都能做到!!
set fs as filesystemobject ================
要不就这样DIM fs as NEW filesystemobject
或者
set fs = new filesystemobject
[解决办法]
Q：fso 要引用那个部件的？
A：
在开发环境下： "Alt+P " --> "N " --> 出现的对话框中选中 "Microsoft Scripting Runtime "即可。
[解决办法]
在项目中添加应用：Microsoft Scripting Runtime
Dim fso As New FileSystemObject
If fso.FolderExists(FldName) = False Then
Call fso.CreateFolder(FldName)
End If
'FldName为文件夹名
