vb6 - 带通配符的 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 来查看每个长名称旁边的短名称。

进一步阅读:

• super 用户: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 之类的东西)，或者您需要disable short names在您的系统上(这可能会破坏旧的应用程序)。