Question

怎样用vb 把程序目录下文件夹内的文件复制到C盘根目录下

就这些分了，麻烦写下源码，非常感谢

Answer 1

可用filecopy语句：
FileCopy source, destination
source要被复制的文件名，destination目地文件名
如程序路径下的文件“123.txt"，拷到c盘后名称不变，这样：
filecopy app.path +"\123.txt" "c:\123.txt" 即可

Answer 2

直接用代码就可以了...

Private Sub Command2_Click()

Dim f As String
Dim d As String

d = App.Path

If Right(d, 1) <> "\" Then
d = d & "\"
End If

f = Dir(d)

Do

FileCopy d & f, "c:\" & f

f = Dir
Loop Until f = ""

End Sub

Answer 3

很多文件吗 如果多就
窗体上放一个FILE控件

private sub command1_click()
dim I AS integer,s1 as string,s2 as string
file1.path=app.path & "\文件夹名"
for i=0 to file1.listcount-1
s1=file1.path & "\" & file1.list(i)
s2="c:\" & file1.list(i)
filecopy s1,s2
next i
end sub

一个的话就不用了 直接filecopy