open "c:\1.txt" for append as #1 input #1, "上次打开的路径" close #1
前期准备: 1.工程>>部件>>引用 Microsoft Common Dialog Contrl 6.02.拖动如下控件到窗体内: text1 (1个) command1(1个) commondialog1(就是刚刚引用出来的那个控件 1个)3.设置text1的属性: Multiline = True ScrollBars =24.清空代码窗口内所有代码,复制如下代码到其中: ------------------------- Option ExplicitPrivate Sub Command1_Click()Dim a As String Dim b As String Dim c As String CommonDialog1.Filter = "*.txt|*.txt" '设置可选的文件类型 CommonDialog1.ShowOpen '弹出对话框 c = CommonDialog1.FileName '变量c储存文件路径 SaveSetting "123", "123", "123", c '使用savesetting 函数把信息写到注册表 Open CommonDialog1.FileName For Input As #1 'open语句打开选定文件 Do Until EOF(1) '循环至文件尾 Line Input #1, a 'line input # 语句逐行读取文本 b = b & a & vbCrLf '把次读的内容累计起来 Loop Close #1 '还要记得关闭文件 Text1.Text = b Cls '清屏 Print c '打印出选择的文件路径 End SubPrivate Sub Form_Activate() Dim d As String d = GetSetting("123", "123", "123") '使用getsetting 函数读取注册表内信息 并打印出来 Cls Print d End Sub'要更详细的了解savesetting与getsetting 函数请到我们群 16874787 cike技术交流群 ------------------------------- 详细了解本例题 你就应该可以自己写你需要的东西了...
input #1, "上次打开的路径"
close #1
1.工程>>部件>>引用 Microsoft Common Dialog Contrl 6.02.拖动如下控件到窗体内:
text1 (1个)
command1(1个)
commondialog1(就是刚刚引用出来的那个控件 1个)3.设置text1的属性:
Multiline = True
ScrollBars =24.清空代码窗口内所有代码,复制如下代码到其中:
-------------------------
Option ExplicitPrivate Sub Command1_Click()Dim a As String
Dim b As String
Dim c As String
CommonDialog1.Filter = "*.txt|*.txt" '设置可选的文件类型
CommonDialog1.ShowOpen '弹出对话框
c = CommonDialog1.FileName '变量c储存文件路径
SaveSetting "123", "123", "123", c '使用savesetting 函数把信息写到注册表
Open CommonDialog1.FileName For Input As #1 'open语句打开选定文件
Do Until EOF(1) '循环至文件尾
Line Input #1, a 'line input # 语句逐行读取文本
b = b & a & vbCrLf '把次读的内容累计起来
Loop
Close #1 '还要记得关闭文件
Text1.Text = b
Cls '清屏
Print c '打印出选择的文件路径
End SubPrivate Sub Form_Activate()
Dim d As String
d = GetSetting("123", "123", "123") '使用getsetting 函数读取注册表内信息 并打印出来
Cls
Print d
End Sub'要更详细的了解savesetting与getsetting 函数请到我们群 16874787 cike技术交流群
-------------------------------
详细了解本例题 你就应该可以自己写你需要的东西了...