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

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_%"。这应该只返回一个带有所需文件名的文件的集合（比全部集合更快）。

有文件集没有计数属性，但你可以使用：

For Each file in fileCollection 
    counter = counter + 1 
Next 

这将不能访问内部文件对象，应该运行相当快。

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

准确的代码留作空白，作为海报的练习。