标题：[求助]如何自动生成不存在的文件夹？

刚才试了一下，如果WritePrivateProfileString里面的路径参数用到了不存在的文件夹，似乎是不会自动生成文件夹的，从而导致写入文件失败。我的问题是，如果想让程序生成一个文件夹并对其命名，应该用什么函数呢？

需要用VBA里面的函数

求回复啊

有没有这样的函数？

网上一搜一大把，摘抄部分如下

 

(1)创建文件夹

1. Dim fso, f
   
2. '如果指定的文件夹已经存在，则会出现错误。
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. Set f = fso.CreateFolder("c:\New Folder")
   

复制代码

(2)删除文件夹

1. Dim fso,filespec
   
2. filespec="D:\电影" '要删除的文件夹路径
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. fso.DeleteFolder(filespec)
   
5. '若删除只读文件夹则将上一行改为fso.DeleteFolder(filespec,true)
   

复制代码

(3)判断文件夹是否存在

1. Dim fso,msg,tt
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. fldr="C:\Documents and Settings" '文件夹路径和名字
   
4. tt = fso.FolderExists(fldr) '存在返回true;不存在返回false
   
5. If tt=true Then
   
6. msg = fldr & " 存在。"
   
7. Else
   
8. msg = fldr & " 不存在。"
   
9. End If
   
10. Msgbox msg
    

复制代码

(4)获取指定目录下所有文件的文件名(不包含文件夹名)

1. Dim a
   
2. a="D:\文件夹1" '目标文件夹完整路径
   
3. Msgbox ShowFolderList(a)
   
4. Function ShowFolderList(folderspec)
   
5. Dim fso, f, f1, fc, s '定义变量
   
6. Set fso = CreateObject("Scripting.FileSystemObject") '创建对象
   
7. Set f = fso.GetFolder(folderspec) '得到文件夹下folder对象
   
8. Set fc = f.Files
   
9. For Each f1 in fc '查找所有符合条件的文件名
   
10. s = s & f1.name
    
11. s = s & vbcrlf '得到结果并换行
    
12. Next
    
13. ShowFolderList = s
    
14. End Function
    

复制代码

(5)分离路径中的文件名(不带扩展名)

1. Msgbox GetTheBase("C:\tt.txt") 'GetTheBase返回值tt
   
2. Function GetTheBase(filespec)
   
3. Dim fso
   
4. Set fso = CreateObject("Scripting.FileSystemObject")
   
5. GetTheBase = fso.GetBaseName(filespec)
   
6. End Function
   

谢谢了！