返回列表 上一主題 發帖

[發問] 如何寫入/讀取.txt檔資料

[發問] 如何寫入/讀取.txt檔資料

我希望在表單開啟時能檢查是否有pathFile.txt存在,
若無->在我的文件夾中create一個pathFile.txt並寫入"mypath"
若有->讀取pathFile.txt中最後一列資料
卻出現錯誤 請問該如何修正?
Private Sub UserForm_Initialize()
Dim workpath As String
Dim rLine As String
Dim a As Object
Set myText = CreateObject("Scripting.FileSystemObject")
Set myText = myText.OpenTextFile(Filename:="pathFile.txt") ', IOMode:=ForAppending, Create:=True)
    a = myText.READALL
    Do While InStr(a, vbCrLf) Or InStr(a, vbLf & vbLf)
        a = Replace(a, vbCrLf, vbLf)   
        a = Replace(a, vbLf & vbLf, vbLf)
    Loop
    If Mid(a, Len(a)) = vbLf Then a = Mid(a, 1, Len(a) - 1)
    a = Split(a, vbLf)
myText.Close

End Sub

        靜思自在 : 有願放在心裡,沒有身體力行,正如耕田不播種,皆是空過因緣。
返回列表 上一主題