Question

Vb程序怎么写入文件

我是新手，想实现在VB中单击命令按钮可以把电脑中的某一文件存放到某一文件夹里，最好可以再通过其他控件选择存放的目录功能，可以把文件直接打包在程序里吗？新手，希望能给出详细答案

Answer 1

Dim Str1$, str2$
Str1 = " ???????" 'str1为你要复制的文件路径，如str1="e:\vb\1.txt"
str2 = "?????" 'str2为你要存放的路径,，如str2="e:\1.txt"，"1.txt"为你复制后的文件名可以改
If Dir(Str1) = "" Then Text1 = "no this file": Exit Sub '''如果没有找到文件则退出
FileCopy Str1, str2 ''''将str1指定的文件复制为str2
Kill Str1 '''''删除掉原文件
''''''''''''''''''''''''''''''''''''''''''''''''
'如果要可以选择存放目录可以用Drivelistbox和Dirlistbox两个控件，
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
''让str2=Dir1.path & "\1.txt" ,即可
'自己慢慢试一试吧

追问

我的分不多，但是你的教程很详细，谢谢了。我想问下，怎么把a.doc这个文件打包在程序里，可以运行软件直接写出文件到某个文件夹，这个怎么实现呢？

追答

这个不是打包在程序里的，是用相对路径。比如你可以把a.doc文件放在和你程序的同一个文件里，那么a.doc的路径和你的程序路径是一样的，你程序的路径可以用App.path获得，那么此时a.doc的完整路径为App.path & "\a.doc"。
反正app.path是程序的路径，那么你把文件放在可以对比程序路径找到的地方，自己试试吧。