如何在VBA中将文件从Dos转换为Unix

我想使用VBA excel将所有文件从dos转换为unix格式的文件夹。

我可以通过使用下面的代码find驱动器中的所有文件。

Sub list_all_files(myFilepath As String, filecounter() As Variant, counter1 As Integer) With Application.FileSearch .NewSearch .LookIn = myFilepath .filename = "*.*" counter = 0 If .Execute(SortBy:=msoSortByLastModified, SortOrder:=msoSortOrderDescending) > 0 Then counter1 = .FoundFiles.Count For i1 = 1 To .FoundFiles.Count counter = counter + 1 filecounter(counter) = .FoundFiles(i1) Next i1 End If End With End Sub 

但是如何转换arrayof（文件）。 我想将文件保存在相同的path上。

提前致谢。

Answer 1

您将不得不依次打开每个文件，并在input上运行查找和replace操作： vbCrLf （DOS）转到vbLf （Unix）。 然后，您必须将更新后的文件写回到另一个文件中。或者，不是按顺序执行此操作，而是扫描每个文件，同时将其写回另一个文件，但忽略所有回车。

一个快速的谷歌发现示例代码（例如， 在这里 ）来做的伎俩。