Sub OpenCloseArray()
Dim MyFile As String
Dim Arr(400) As String
Dim count As Integer
MyFile = Dir("D:\" & "*.txt") '遍历D盘根目录下所有文本文件
count = count + 1
Arr(count) = MyFile
Do While MyFile <> ""
MyFile = Dir
If MyFile = "" Then
Exit Do
End If
count = count + 1
Arr(count) = MyFile '将文件的名字存在数组中
Loop
For i = 1 To count
FileName = "D:\" & Arr(i)
If FileName = False Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.opentextfile(FileName)
s = Replace(f.readall, "”", Chr(34)) '这里是要替换的文字
s = Replace(s, "“", Chr(34))
s = Replace(s, "‘", "'")
s = Replace(s, "’", "'")
s = Replace(s, "—", "-")
f.Close
Set r = FSO.opentextfile(FileName, 2, True)
r.write s
Next
End Sub
|
| 学校官网 |
加入收藏
| 站点二维码 【我要留言】 
