天空教学网

查看: 22|回复: 0

VBS 创建文件夹源代码

[复制链接]

 成长值: 14275

2100

主题

0

精华

1396

积分

管理员

UID
1

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

威望
0
贡献
252
资源币
1144
道具币
1260
好友
242
听众
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






复制代码

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

本版积分规则

关闭

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

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

GMT+8, 2017-10-23 21:24 , Processed in 0.356540 second(s), 38 queries .

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