检测文件夹是否存在，不存在则创建
2011-02-25 17:17
218 查看
On error resume Next
Dim mu_sFilePath, mu_sFileName
mu_sFilePath = "textFolder/"
mu_sFileName = mu_sFilePath & "ResultVoice.txt"
Dim fs
set fs = CreateObject("Scripting.FileSystemObject")
if(fs.FolderExists(mu_sFilePath)) Then '检测文件夹是否存在
MsgBox "文件夹已存在"
else
MsgBox "文件夹不存在"
fs.CreateFolder(mu_sFilePath) '创建文件夹
end if
set fs = Nothing
Dim mu_sFilePath, mu_sFileName
mu_sFilePath = "textFolder/"
mu_sFileName = mu_sFilePath & "ResultVoice.txt"
Dim fs
set fs = CreateObject("Scripting.FileSystemObject")
if(fs.FolderExists(mu_sFilePath)) Then '检测文件夹是否存在
MsgBox "文件夹已存在"
else
MsgBox "文件夹不存在"
fs.CreateFolder(mu_sFilePath) '创建文件夹
end if
set fs = Nothing
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- android java 检测文件夹(目录)是否存在，不存在则创建
- ASP如何检测某文件夹是否存在,不存在则自动创建
- c++判断文件夹是否存在，若不存在，调用linux命令创建它
- python判断文件夹是否存在，不存在即创建
- 获取文件扩展名、 文件名、文件名不包括扩展名,检测文件夹、文件是否存在、创建文件夹，检测文件夹状态、检查文件名是否符合要求
- 判断路径文件夹是否存在,不存在创建
- 判断文件是否存在，不存在创建文件&&判断文件夹是否存在，不存在创建文件夹
- 判断文件夹是否存在，不存在则创建
- 判断文件夹是否存在，不存在则创建文件夹
- php判断文件夹是否存在不存在则创建
- Android 检测目录是否存在，不存在则创建
- 判断文件夹是否存在，不存在创建文件夹
- ASP函数：检查文件夹是否存在，不存在则创建文件夹
- Android 检测目录是否存在，不存在则创建
- VC++ 判断文件夹是否存在，若不存在，创建新文件夹
- 触动精灵:判断文件夹是否存在不存在创建
- php判断文件夹或文件是否存在，及不存在时如何创建
- 判断文件夹是否存在，不存在创建文件夹
- 检查文件夹是否存在，不存在则创建
- C#判断文件和文件夹是否存在 不存在则创建