Private Sub Form_Load()
 dim cur_dir1,cur_dir2
 dim temp，i
 cur_dir1 = App.Path'程序路径
 CommonDialog1.filename=cur_dir1 & "\spama.ini"
 Open CommonDialog1.FileName For Binary As #1
 temp = Split(Input(LOF(1), 1), vbNewLine)'读入ini文件到内存数组
 close #1
 for i=0 to ubound(temp)
   if  temp(i)="[ptom]" then
    cur_dir2=right(temp(i+1),len(temp(i+1)-4)'取得[ptom]字段的路径
    exit for   
   end if
 next i
 CommonDialog1=cur_dir2 & "\ss.txt"
 Open Cmd1.FileName For Binary As #1
 temp = Split(Input(LOF(1), 1), vbNewLine)'读入ini文件到内存数组1.text
 close #1
 for i=0 to ubound(temp)
  text1.text=text1.text & temp(i) & vbcrlf
 next i
end sub

[此贴子已经被作者于2017-7-8 22:02编辑过]

哎，还是给你做一个吧
这个是有txt文件的界面；
这个是没有txt文件的提示对话框。
下面是给你的exe程序文件，应该满足你的要求了。

老哥，楼主一直说是ini文件，为什么你总是钻牛角尖用文本文件呢？建议你先了解一下ini文件格式再来帮楼主解决问题。

嗨嗨，你没有看程序，你怎么知道我不是使用ini文件的，在压缩包就有 spama.ini 文件，是以 spama.ini 文件打开 所在目录中的 "\ss.txt" 文件的，你下载看看，不要乱说。
spama.ini 文件的内容如下：
[ptom]
ath=d:\sd
[exe]
exe=e:\sd
[ptomW]
ath=E:\sdD
[ptom]
ath=e:\hl
另外界面中的下拉框就是读取了 spama.ini 文件中的 txt 文件的路径的。

[此贴子已经被作者于2017-7-9 12:10编辑过]

哈哈，到底谁乱说，你看清楚了。ini文件是有专门处理ini文件的API函数的。你这个虽然文件是ini文件，但却用处理文本文件的方法来处理，实在是张冠李戴，是个混血儿啊

第一，这里是讨论VB编程的论坛，不是骂人的地方，请自重一点。
第二，我没有听说过，VB编程对ini文件处理必须是使用API函数处理的，可能是我孤陋寡闻吧，好像微软也没有这个规定吧。
第三，编程的目的是为了使用方便，有简洁的办法，为什么必须使用复杂的方法。
第四，如果我说的不对，可以讨论，但请不要侮辱其他论坛的网友，这也是尊重你自己。

我哪一句骂人了，老哥不妨指出来。如果确实哪里骂你了，我可以向你道歉。另外，用处理文本的方法来处理ini文件，事实上是变得复杂了，而不是变得简单了。另外，微软就是提倡ini文件不能按文本方式进行处理，否则微软也没必要专门提供处理ini文件的API出来。
你现在只是用处理文本的方式来读取ini文件内容。如果还要对ini文件进行添加、修改以及删除部分内容的情况下，你用处理文本的方式来处理这些操作，岂不把人累死？

[此贴子已经被作者于2017-7-10 16:16编辑过]