天空教学网

查看: 58|回复: 0

VBS 创建多级目录方法

[复制链接]

 成长值: 15070

2150

主题

0

精华

1569

积分

管理员

UID
1

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

威望
0
贡献
254
资源币
1315
道具币
1270
好友
262
听众
1
收听
0

VIP勋章

发表于 2017-10-8 17:06:43 | 显示全部楼层 |阅读模式
  1. Option Explicit  '强制声明变量

  2. On Error Resume Next '忽略错误,继续执行代码

  3. On Error Goto 0 '开启错误,停止代码

  4. Dim return
  5. return =  CreateFolders("C:\0\1\2\3\4\5\6\7\8\9\0")



  6. MsgBox return

  7. Function CreateFolders(SetFolderName)
  8.          Dim FOS,f,FolArr,FolPath,i


  9.            Set FOS = CreateObject("Scripting.FileSystemObject")
  10.                
  11.          FolArr =Split(SetFolderName,"\")
  12.   
  13.          For i=0 To Ubound(FolArr)       
  14.               If i=0 Then
  15.                  FolPath = FolArr(0)
  16.               Else
  17.                  FolPath = FolPath&"\"&FolArr(i)
  18.                  'MSGBOX FolPath
  19.                
  20.                           If FOS.FolderExists(FolPath) Then
  21.                                    CreateFolders = FolPath&"文件已经存在!"
  22.                          Else
  23.                                 Set f  = FOS.CreateFolder(FolPath)
  24.                                 CreateFolders = "文件创建成功! 路径为: "&f.Path       
  25.                          End If
  26.        
  27.        
  28.               End If
  29.          Next

  30.         Set FOS = Nothing
  31.         Set f =Nothing     '以后不使用该对象,最好销毁对象;这样可以释放资源.

  32. End Function




复制代码


您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐 上一条 /1 下一条

QQ|Archiver|手机版|小黑屋|天空教学网

GMT+8, 2017-12-15 08:36 , Processed in 0.421391 second(s), 38 queries .

2017 TNEKY 天空网
快速回复 返回顶部 返回列表