匿名使用者
匿名使用者 發問時間: 電腦與網際網路程式設計 · 1 0 年前

寫一個vb6程式,關於檔案存在時就繼續往下執行

請教如何寫一個程式

當c:\test.txt存在時

就繼續往下執行

不存在時建立text.txt檔

謝謝

已更新項目:

根據你的程式

程式如下

怎麼執行答案就是5(debug.print)

不知那裡錯了

Private Sub Command1_Click()

j = 0

If Dir("c:\test.txt") "" Then

j = 5

Else

Open "C:\text.txt" For Output As #1

Print #1, "m"

Close #1

End If

i = 5

Debug.Print i + j

End Sub

2 個已更新項目:

感謝!

感謝!

3 個解答

評分
  • ?
    Lv 6
    1 0 年前
    最佳解答

    Private Sub Command1_Click()

    If Dir("c:\test.txt") <> "" Then

    '繼續往下執行

    Else

    '建立text.txt

    Open "C:\text.txt" For Output As #1

    Close #1

    End If

    End Sub

  • 橘子
    Lv 5
    1 0 年前

    感謝!感謝!

  • 匿名使用者
    1 0 年前

    看一下檔名

還有問題?馬上發問,尋求解答。