VB 获取 E:\ 目录下所有文件详细列表 - 代码示例
要获取E:\目录下所有文件的详细列表,可以使用VB的FileSystemObject来实现。以下是一个示例代码:\n\nvb\nSub GetFileList()\n Dim fso As Object\n Dim folder As Object\n Dim file As Object\n Dim filePath As String\n \n Set fso = CreateObject("Scripting.FileSystemObject")\n Set folder = fso.GetFolder("E:\")\n \n ' 遍历文件夹下的每个文件\n For Each file In folder.Files\n ' 输出文件名和路径\n filePath = file.Path\n Debug.Print filePath\n Next file\n \n Set fso = Nothing\n Set folder = Nothing\n Set file = Nothing\nEnd Sub\n\n\n在这个示例中,我们首先创建了一个FileSystemObject对象,然后使用GetFolder方法获取指定目录的Folder对象。然后,我们使用For Each循环遍历Folder对象中的每个文件,并输出文件的路径。\n\n你可以将上述代码复制到VB的代码窗口中,并执行GetFileList子过程来获取E:\目录下所有文件的详细列表。输出结果将会在Immediate窗口中显示。
原文地址: https://www.cveoy.top/t/topic/qb5e 著作权归作者所有。请勿转载和采集!