Question

我正在帮助我的儿子编写一个程序来格式化文件以加载到另一个系统中。我之前没有遇到任何麻烦。现在我得到一个13 KB逗号分隔的文本文件，我正在使用FSO将其复制到另一个带有csv扩展名的文件。由于某种原因，新文件始终停在同一位置，大约是文件原始文件末尾的6条记录。我认为它可能是在它停止的行后面的记录，所以我在文件中移动记录。没有变化停在同一个地方。所以将记录移到停止的上方。仍然是同样的问题。它停在13 KB，并留下约6条记录。我唯一能想到的是文件大小，但是低于VB CopyFile的限制。我已将原始文件导入Excel没问题。我已经对文件进行了重命名，并在Excel中打开它没问题。请告诉我并了解下一步该去哪里。

Answer 1

我之前听说过fso，但我没有听说过解决方案（或者说是原因）。如果您使用的是vb.net，则可以使用my.computer.filesystem.filecopy函数而不是fso。如果您正在使用vb6，您也可以通过这种方式复制文件，尽管它不是很优雅。

Dim s As String

Open sourcename For Binary As 1
s = String(LOF(1), " ")
Get 1, , s
Close 1

Open destname For Binary As 1
put 1, , s
close 1

使用FileSystemObject复制CSV文件时截断的文件

1 个答案: