关于FSO对象中file对象的使用问题

bulesyl

求教高手，以下代码中，写法1，写法2 为什么不可以提取file对象的名称？，正确的写法如何写？





Sub GetFileName()

Dim wb As Workbook, sh As Worksheet, fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetFolder(ThisWorkbook.Path)
Set f = fd.Files
a = f(1).Name----------------------------（写法1）
a = f.Items(1).Name--------------------（写法2）
End Sub

lwwy1981

For Each a In f
      Debug.Print a.Name
Next

taller

bulesyl

lwwy1981 发表于 2024-12-11 23:52
For Each a In f
      Debug.Print a.Name
Next

求教，如果不想用for each 循环，只想提取其中指定的item 怎么写？

bulesyl

taller 发表于 2024-12-12 05:40

  请问关于部分对象模型 是否支持序号索引方式，如何判别？

ykcbf1100

bulesyl 发表于 2024-12-12 09:05
请问关于部分对象模型 是否支持序号索引方式，如何判别？

应该是不支持索引方式。
你有见过用索引方式的？

ykcbf1100

f 是一个文件集合（Files 集合），它不使用标准的索引方式来访问集合中的项目。在VBA中，集合通常使用 For Each 循环来迭代，而不是使用索引。

lss001

bulesyl 发表于 2024-12-12 09:05
请问关于部分对象模型 是否支持序号索引方式，如何判别？

'fso对象支持索引方式
'需要提供键值key： →fs.Item(key)
'不使用循环建议使用方式3
Sub GetFileName()
    Dim fso As Object, fd As Object
    Dim fs As Object, fj As Object

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fd = fso.GetFolder(ThisWorkbook.Path)
    Set fs = fd.Files
   
    Dim i&: i = 0 '方式1：Object***
    ReDim arr1(1 To fs.Count)
    For Each fj In fs
         i = i + 1
         arr1(i) = fj.Name
    Next
   
    Dim fp$, j& '方式2：Item*
    ft = Dir(ThisWorkbook.Path & "\*.*")
    ReDim arr2(1 To fs.Count - 1)
    For j = 1 To fs.Count - 1
        If ft <> "" Then
            arr2(j) = fs.Item(CStr(ft))
            ft = Dir
        End If
    Next
   
    Dim ws As Object, Ex As Object
    Dim arr3$(), ff$  '方式3：Ws/Cmd**
    ff = ThisWorkbook.Path
    Set ws = CreateObject("WScript.Shell")
    Set Ex =  ws.Exec("cmd /c dir /a-h /b/s " & _
        Chr(34) & ff & Chr(34))
    arr3 = Split(Ex.StdOut.ReadAll, vbCrLf)
   
    Set ht = Nothing '释放对象
    Set pw = Nothing
    Set fso = Nothing
    Set fd = Nothing
    Set fs = Nothing
End Sub

lwwy1981

bulesyl 发表于 2024-12-12 09:03
求教，如果不想用for each 循环，只想提取其中指定的item 怎么写？

Sub GetFileName()
      
      Dim wb As Workbook, sh As Worksheet, fso As Object
      Set fso = CreateObject("Scripting.FileSystemObject")
      Set fd = fso.GetFolder(ThisWorkbook.Path)
      Set f = fd.Files
      ReDim ff(1 To fd.Files.Count)
      For Each a In f
            m = m + 1
            Set ff(m) = a
      Next a
      
      b = ff(1).Name
End Sub

ykcbf1100

lss001 发表于 2024-12-12 13:21
'Fso对象支持索引方式
'需要提供键值key： →fs.Item(key)
'不使用循环建议使用方式3

你前二种方法其实还是用遍历的方式的，并不是索引方式。和楼主说的不是一回事。楼主是想直接提取某个序列的值，而不是遍历方式。
第三种方法，没看明白，用法太复杂，肯定也不是楼主想要的。