批处理之家 - Powered by Discuz! Board

标题: [问题求助] AddFolders 方法(Folders)怎么写格式？ [打印本页]

作者: czjt1234 时间: 2012-4-26 15:37 标题: AddFolders 方法(Folders)怎么写格式？

AddFolders 方法(Folders)
向 Folders 集合添加新 Folder。

object. Add(folderName)

参数
object

必选项。应为 Folders 集合的名称。

folderName

必选项。要添加的新 Folder 名称。

说明
下面例子举例说明如何利用 Add 方法添加新文件夹：

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 = fc.Add(folderName)
  Else
Set nf = fc.Add("New Folder")
  End If
End Sub
如果 folderName 已经存在，则会出现错误。

我写了个

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder("d:\test")
Set fc = f.SubFolders
Set nf = fc.Add("d:\test1")
复制代码

到这里就运行出错，这个addFolder方法该怎么使用？

还有

read = objdriver.ShareName 
复制代码

这个我在本机把C盘共享为cc，但用ShareName属性显示不出来么

作者: czjt1234 时间: 2012-4-27 08:40

自己摸索了一下

Set ttfile = fso.GetFolder("d:\test")
set objFolders = ttfile.SubFolders
当前目录里所有文件夹对象的集合，不包括子文件夹
可以使用 For Each...Next 结构枚举 SubFolders 集合的成员
for each f in objFolders
msgbox f.path,64
next

objFolders.Add "test01"
在当前目录 d:\test 里增加一个文件夹 test01
同时 objFolders 集合里也增加该文件夹对象

set objNewFolder = objFolders.Add("test02")
objNewFolder 为该新文件夹对象
msgbox objNewFolder.name,64

欢迎光临批处理之家 (http://bathome.net./)