源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

VBS教程:方法-AddFolders 方法(Folders)

  • 时间:2021-08-28 08:11 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:VBS教程:方法-AddFolders 方法(Folders)

AddFolders 方法(Folders)

向 Folders 集合添加新 Folder。 [code][i]object. [/i][b]Add[/b][i](folderName)[/i][/code] [h3]参数[/h3]object 必选项。应为 [b]Folders[/b] 集合的名称。 folderName 必选项。要添加的新 [b]Folder[/b] 名称。 [h3]说明[/h3]下面例子举例说明如何利用 [b]Add[/b] 方法添加新文件夹:
[code]Sub AddNewFolder(path, folderName)  Dim fso, f, fc, nf  Set fso = CreateObject("Scripting.FileSystemObject")  Set f = fso.GetFolder(path)  Set fc = f.SubFolders  If folderName <> "" Then    Set nf = [b]fc.Add([/b]folderName[b])[/b]  Else    Set nf = [b]fc.Add([/b]"New Folder"[b])[/b]  End IfEnd Sub[/code]
如果 [b]folderName[/b] 已经存在,则会出现错误。
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部