VB6.0编程用对话框得到已知文件的路径

Question

Private Sub Command1_Click()
Open "d:\myfirst.txt" For Output As #1
Print #1, "welcome", 123.4, Date, True
Close #1
End Sub
我要打开D:\盘的myfirst.txt文件，想要把盘符D:\作为一个变量,用驱动器列表框怎么来实现?使得我对myfirst.txt的更新下确写入到myfirst.txt文件里去.

Answer 1

1、先建立一个文本文件，文件名可以是任意名，例如ftp.txt，其内容如下：

open 192.168.1.100 /*远服务器地址或名*/

MYNAME /*用户名MYNAME*/

MYPASSWORD /*用户密码MYPASSWORD*/

binary /*以二进制传送文件，可选项*/

cd REMOTE_PATHNAME /*进入远程目标路径REMOTE_PATHNAME*/

get REMOTE_FILE LOCAL_FILE /*把远程文件REMOTE_FILE下载成本地文件LOCAL_FILE*/

put LOCAL_FILE REMOTE_FILE /*将本地文件LOCAL_FILE上传成远程文件REMOTE_FILE */

bye /*退出ftp应用*/

Answer 2

CommonDialog 控件Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开字典文件"
CommonDialog1.InitDir = ""
CommonDialog1.Filter = "TXT文档(*.txt)|*.txt"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.Text = CommonDialog1.FileName

Answer 3

VB6编程用对话框得到已知文件的路径

Answer 4

path = Left(filename, InStrRev(filename, "\"))

Answer 5

我晕，那有你这种写法