国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Sub OpenCloseArray()
    Dim MyFileAs String
    Dim Arr(400)As String
    Dim count AsInteger
   
    MyFile =Dir("D:\" & "*.txt")  '遍歷D盤根目錄下所有文本文件
    count =count + 1
    Arr(count) =MyFile
     
    Do WhileMyFile <> ""
       MyFile = Dir
       If MyFile = "" Then
           Exit Do
       End If
       count = count + 1
       Arr(count) =MyFile        '將文件的名字存在數(shù)組中
   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