减小字体
增大字体- ·上一篇文章：VBS上传文件
- ·下一篇文章：查找任务管理器的相同进程数量
- ·百度中搜索更多的关于“VBS创建多层文件夹”相关内容
- ·谷歌中搜索更多的关于“VBS创建多层文件夹”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
VBS创建多层文件夹
'<功能>
'用于免疫autorun病毒
'<说明>
func_MyCreateFolder "c:\test\test\test\test\test\test\test\test"
Set WshShell=CreateObject("Wscript.Shell")
Wshshell.Run "explorer c:\test\test\test\test\test\test\test\"
MsgBox "呵呵，自己看吧！多少层？？？",vbInformation,"www.cmdos.net"
'=========================================================================================================
'定义创建多层文件夹函数 -> Start <-
'=========================================================================================================
Function func_MyCreateFolder(strPath)
ON ERROR RESUME NEXT
Set FSO=CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(strPath) Then Exit Function
If Not FSO.FolderExists(FSO.GetParentFolderName(strPath)) Then
func_MyCreateFolder FSO.GetParentFolderName(strPath)
End If
FSO.CreateFolder strPath
End Function
'=========================================================================================================
'创建多层文件夹函数定义结束 -> To The End <-
'=========================================================================================================
