我找到了替换文件名中无效字符的函数。我想将它用于一个文件夹中的所有文件。
Function strLegalFileName(strFileNameIn As String) As String
Dim i As Integer
Const strIllegals = "\/|?*<>"":"
strLegalFileName = strFileNameIn
For i = 1 To Len(strIllegals)
strLegalFileName = Replace(strLegalFileName, Mid$(strIllegals, i, 1), "_")
Next i
End Function
我不知道如何遍历所有文件并在包含无效时替换字符。
它是否正确调用函数?通过 Debug.print 命令有我遍历所有文件的循环,但我不知道如何构建它:
Sub LoopThroughFiles()
Dim MyObj As Object, MySource As Object, FileName As Variant
FileName = Dir("C:\Users\Anna\Desktop\testNazwa\")
While (file <> "")
Debug.Print strLegalFileName(strFileNameIn)
file = Dir
Wend
End Sub