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

lss001

参考下楼代码比较简单

ykcbf1100

lss001 发表于 2024-12-12 23:00
可能理解有偏差
楼上代码来自vb对象帮助文件中的

你的方法还是不错的。

micch

既然不支持就不要直接item好了。想用item，完全可以for each循环读入集合或者数组，然后再item，不过是多几行代码。

shell dir命令可以一次性得到文件名，用split一行得到数组，可以通过item来取值。只是看上去代码量少了，本质还是需要把全部数据放入数组，然后通过序号取值

lss001

ykcbf1100 发表于 2024-12-13 08:26
你的方法还是不错的。

'上面代码不好理解，方式4应该是好理解

Sub GetFileName() '方式4：fso/Names
    Dim fs As Object, ph$, frr
    Dim fso As Object, fd As Object
   
    ph = ThisWorkbook.Path
    Set fso = CreateObject("Scripting.FileSystemObject"
    Set fd = fd.GetFolder(ph)
    Set fs = fd.Files

    Names.Add "fName", "=Files(""" & ph & "\*.*"")"
    frr = Excel.Evaluate("fName")
    Names(Names.Count).Delete

   Msgbox fs.Item(fso.GetFileName(frr(1)))
End Sub

bulesyl

micch 发表于 2024-12-13 08:37
既然不支持就不要直接item好了。想用item，完全可以for each循环读入集合或者数组，然后再item，不过是多几 ...

谢谢回复。办法总比困难多

bulesyl

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

感谢提供思路

bulesyl

ykcbf1100 发表于 2024-12-12 19:54
你前二种方法其实还是用遍历的方式的，并不是索引方式。和楼主说的不是一回事。楼主是想直接提取某个序列 ...

确实如您所说，当初的想法就是想直接指定某个索引号做引用

lss001

bulesyl 发表于 2024-12-13 09:25
感谢提供思路

可参考一下方式4：Names

ykcbf1100

bulesyl 发表于 2024-12-13 09:26
确实如您所说，当初的想法就是想直接指定某个索引号做引用

我也想啊，但不能直接使用。