天空网

查看: 179|回复: 0

VBS 创建文件夹源代码

[复制链接]

 成长值: 18715

2153

主题

0

精华

1595

积分

管理员

UID
1

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

威望
0
贡献
267
资源币
1328
道具币
1335
好友
323
听众
1
收听
0

VIP勋章

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

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

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

  4. Dim return
  5. return =  CreateFolders("C:\新文件夹")

  6. MsgBox return

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


  9.            Set FOS = CreateObject("Scripting.FileSystemObject")

  10.          If FOS.FolderExists(SetFolderName) Then
  11.                    CreateFolders = "文件已经存在!"
  12.          Else
  13.                 Set f  = FOS.CreateFolder(SetFolderName)
  14.                 CreateFolders = "文件创建成功! 路径为: "&f.Path       
  15.          End If
  16.        
  17.         Set FSO = Nothing
  18.         Set f =Nothing     '以后不使用该对象,最好销毁对象;这样可以释放资源.
  19. End Function






复制代码

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

本版积分规则

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

GMT+8, 2018-8-15 21:13 , Processed in 0.374648 second(s), 37 queries .

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