在vb中将filebox里的文件路径记录到记事本里，这该怎办

得到文弯谈逗件完整路径还当加侍弊上埋卖dirlistbox,以及drivelistbox,代码如下:

Private Sub Command1_Click()

Dim fn As Integer

fn = FreeFile

Open "c:\filelst.txt" For Output As fn

For i = 0 To File1.ListCount - 1

Print #fn, Dir1.Path &File1.List(i)

Next

Close fn

End Sub

Private Sub Dir1_Click()

File1.Path = Dir1.List(Dir1.ListIndex)

End Sub

Private Sub Drive1_Change()

Dir1.Path = Left(Drive1.Drive, 2) &"\"

End Sub

可以考虑用SHFileIOperation这个API函数实现，只是具体实现时Win7系统和XP系统还略微有些差别。（我曾经做的一个不怎么光彩的程序中就遇到过这样的问题）。运气好的话，直接调用这个函数就能成功了扒雀，如果失败，一般需要自己先创建目录（包括下级目录），然后再复制就春亏早没有问题了。Win7下目标目录（包括下级目录）会自动创建的，XP下貌空丛似不会。

/1）下载offset.dat，通过FileBox把巧拿offset.dat放在/home/user/MyDocs/.maps目录下 /2）安装deb包 /把下边的两个deb包放入自带大容量下的tmp文件夹下，然后开始命令， /打开TXerminal，（确定安装过rootsh并且重启过） /输入root回车 /cd /home/user/MyDocs/tmp回车（进入存放安装文件的路径） /dpkg -i libmappero0_3.2-os2008china_armel.deb回车 /dpkg -i maemo-mapper_3.2-os2008china_armel.deb回稿宽厅车 / /3）打开Mappero，顶部菜单-》地图(Map)-》图片系统(Tiles)-》Google Vector-》类型(Type)（向下键隐翻）-》XYZ_OFFSET,保存 /关闭Mappero,重新打开，最好重启系统

---