用VB做了个记事本 但是打不开txt文件，就是找到了文件 点打开没反应，而且不能保存文件，是怎么回事啊

Question

如题所述

Answer 1

如果仅是打开的话可以这样：

Private Sub Command1_Click()
    Shell "explorer.exe " & App.Path & "\你要打开的文件名字.txt", 1
End Sub

   

你要打开的文件名字.txt  这个文件放在软件目录下。

不过我怀疑你要的是读取txt

希望可以帮到你，有问题请追问！

追问

就是打不开，能看到，点击打开没反应

追答

你是要读取txt里面的内容么？如果是，你可以这样

   

    'text1要设置成多行显示
    Dim temp As String
    Open App.Path & "\" & "你要打开的文件名字.txt" For Input As #1
        Do While Not EOF(1)
            Line Input #1, temp
            If Text1.Text = "" Then
                Text1.Text = temp
            Else
                Text1.Text = Text1.Text & vbCrLf & temp
            End If
        Loop
    Close #1

把文件路径改成你用对话框读取到的文件名字就可以了

希望可以帮到你，有问题请追问！

Answer 2

风格化他和她

Answer 3

发个代码过来追问

追答

按钮事件1 '写文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "E:\cc.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Append As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
按钮事件2 '读文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
strFileName = "E:\cc.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件，Input是读取，Output是覆盖写入，Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
'每次读取都把所读到的内容连接到strAll变量，由于Line Input去掉了换行符，所以这里补上
strAll = strAll & strLine & vbCrLf
Loop
'显示得到的全部分内容
Text1.Text = strAll
Close lngHandle '关闭文件

本回答被提问者采纳