AddFolders 方法(Folders)怎么写格式？

czjt1234

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 已经存在，则会出现错误。


我写了个

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. 
   
3. Set f = fso.GetFolder("d:\test")
   
4. Set fc = f.SubFolders
   
5. Set nf = fc.Add("d:\test1")

复制代码

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


还有

1. read = objdriver.ShareName

复制代码

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

czjt1234

自己摸索了一下

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