我想要将一个文件复制到系统盘一个目录下（如果该目录不存在，则创建该目录），谁能写段代码教教我，加我QQ也行78075493，谢谢了

能不能给个具体的例子，我好知道怎么用

我用了以下代码
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub label6_Click()
Dim syspath As String
Dim savepath As String
Dim syspathlen As Long
syspath = Space(260)
syspathlen = 259
s = GetSystemDirectory(syspath, syspathlen)
FileCopy "" & App.Path & "/db1.mdb", "" & syspath & "/db1.mdb"
End Sub
为什么syspath怎么是"c:\windows\system『,,最后那个符号不知道打,但是就像这个符号,小一些实心的,为什么不是双引号,我该怎么改

出错了,实时错误'75'
路径/文件访问错误
我估计可能还是那个符号没解决吧
savepath = syspath & "/db1.mdb"
加了这句话执行后savepath跟syspath一样,后面的& "/db1.mdb"
根本没起作用

[此贴子已经被作者于2007-1-8 12:22:04编辑过]

还API啊,我晕哦,没这么复杂吧
给个简单点的解决方法啊,把"c:\windows\system『改成"c:\windows\system"就行了吧,告诉我怎么改啊

又加了句
savepath = Left$(syspath, InStr(syspath, Chr$(0)))
可是还是没删除"c:\windows\system『啊，变成了"c:\windows\system『"

问题已经解决,谢谢大家