保存一个前面带有一个字母的新文件

Question

请查找代码：

问题是该文件夹有一个很大的编号。文件数

=====================================================================================
Dim fso, objFolder, obFileList, folderpath,counter

folderpath = "G:\Everyone\Model Office Testing Documents\HP QC\QTP\PSISAutomation\Logs"

Set fso = CreateObject("Scripting.FileSystemObject")

Set objFolder = fso.GetFolder(folderpath)

Set objFileList = objFolder.Files


For Each File In objFileList
    msgbox("5")
     If InStr(1,File.Name,"DE_For_Pol_Print_APPA_7A_Copy_") = 1 Then        
        counter=counter+1
     End If   
Next 

counter=counter+1
msgbox("new file will be saved as: " &"DE_For_Pol_Print_APPA_7A_Copy_"& Chr(64 + Counter))

Answer 1

不要使用 FSO，而应使用 WMI，将文件名放入 SELECT 语句中，例如："DE_For_Pol_Print_APPA_7A_Copy_%"。这应该返回一个仅包含具有所请求文件名的文件的集合（比总集合更快）。

文件集合没有 count 属性，但您可以使用：

For Each file in fileCollection
    counter = counter + 1
Next

这不会访问内部文件对象，并且应该运行得相当快。

第二种甚至更快（但在我看来更丑陋）的技术是使用 windowshell 对象中的命令提示符并将目录返回到输出。输出只是一个字符串。现在，计算所需字符串 (DE_For_Pol_Print_APPA_7A_Copy_) 上的匹配数量，这就是您的计数器。

确切的代码留空作为海报的练习。