带通配符的FileSystemObject CopyFile复制扩展名超过指定长度的文件

Question

在源文件夹中有3个文件：

• a.csv
• b.csv
• a.csv_backup

我希望*.csv仅复制a.csv和b.csv，但它也复制a.csv_backup。

代码：

Dim oFso As New Scripting.FileSystemObject
oFso.CopyFile "c:\temp\*.csv" "d:\temp\"

Answer 1

您会遇到这样一个事实，每个文件都有一个“短名称”（旧的DOS 8.3标准），以与真正的旧软件（其中一些还在使用）兼容。您的文件a.csv_backup也以另一个名称（尽管可能与a~1.csv类似，尽管也可能涉及任何东西）而闻名，该名称仅使用扩展名的前三个字母。您可以运行dir /x在每个长名称旁边查看短名称。

进一步阅读：

• 在超级用户上：Windows wildcards with files having more than 3 characters extensions
• 来自Raymond Chen（在Windows上已经工作了很长时间的开发人员）：Why does FindFirstFile find short names?（关于许多应用程序内部用于按模式查找文件的API）
• 维基百科：8.3 filename

就解决方案而言，您要么需要您的备用扩展名以不共享您要搜索的内容的前三个字符（所以请改用.backup_csv之类的字符），或者您需要{{3} }（可能会破坏旧的应用程序）。