分类：电脑/网络-程序设计
问题：VB打开文件问题.在窗体上有一个Command1名称为"打开"按 
在窗体上有一个Command1名称为"打开"按钮,双击写上以下代码:Shell "explorer D:\下载区\", vbNormalFocus在我的电脑上可以打开D盘下的MP3文件夹,但是这样太死板了,我放别人的电脑上,别人改了目录就不可以打开了.如果我把路径保存在文件里再把程序放在别人的电脑上只要改文件里的目录就可以了.要把路径保存在文件里怎么样才行呢?或者还有没有其它办法做到?帮帮忙.
回答：在文件 path.txt 里写入一行D:\download\     （使用者可以改为需要的路径）把这个文件和你的程序放在同一个文件夹里。在VB程序：Private Sub Command1_Click()Dim path As StringOpen App.path & "\path.txt" For Input As #1Input #1, pathClose #1Shell "explorer " & path, vbNormalFocusEnd Sub----------------------------------------------两个按钮打开两个文件夹 (如果你有更多个按钮要打开多个文件夹，也可照此办理)在文件 path.txt 里写入D:\download\mp3D:\download\rmvb把这个文件和你的程序放在同一个文件夹里。 在VB程序： Private Sub Command1_Click()GetFolder 1End SubPrivate Sub Command2_Click()GetFolder 2End SubSub GetFolder(n As Long)Dim path As String, i As LongOpen App.path & "\path.txt" For Input As #1For i = 1 To nInput #1, pathNext iClose #1Shell "explorer " & path, vbNormalFocusEnd Sub