VBA Excel:列出备份(prev。版本)文件夹中的文件

下面是在指定文件夹中列出文件的非常简单的代码。 它按预期工作。 但是,当我提供此文件夹的备份文件夹之一时,它会抛出无效path(从win explorer窗口复制的备份文件夹path)。

例如:Set objFolder = objFSO.GetFolder(“D:\ Test”)**'很好设置objFolder = objFSO.GetFolder(“D:\ Test(2015.2.12 3:12 PM)”)'不起作用。 这是由Win7创build的文件夹testing的以前/备份版本

有没有办法在Excel中列出与VBA的备份文件夹文件?

Sub Example1() Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim i As Integer 'Create an instance of the FileSystemObject Set objFSO = CreateObject("Scripting.FileSystemObject") 'Get the folder object Set objFolder = objFSO.GetFolder("D:\Test") 'Set objFolder = objFSO.GetFolder("D:\Test (2015.2.12 3:12PM)") throws error i = 1 'loops through each file in the directory and prints their names and path For Each objFile In objFolder.Files 'print file name Cells(i + 1, 1) = objFile.Name 'print file path Cells(i + 1, 2) = objFile.Path i = i + 1 Next objFile End Sub 

备份文件夹的外观如何:

在这里输入图像描述在这里输入图像描述在这里输入图像描述

当我复制path并粘贴,有些? 字符出现在括号内:\ localhost \ C $ \ Users \ IBALLA1 \ Downloads(?Friday,?April?17,?2015,?? 9:05 AM)

您不能在文件名或文件夹名称中使用冒号。 :在你有一个文件夹名称的时间不能创build,不能已经在那里。 我不知道这是否是您的问题或错误的错字。

Interesting Posts