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

GetSystemDirectory 可以得到system32目录

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

Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

' 获取Windows目录
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1
Public Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long

' 检查系统目录
Public Function GetSystemPath() As String
Dim p As String * 80
Dim length As Long
Dim path As String
length = GetSystemDirectory(p, Len(p))
path = Left(p, length)
GetSystemPath = path
End Function

GetSystemPath()舊是伱的SYSTEM目錄叻````

我用了以下代码
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『,,最后那个符号不知道打,但是就像这个符号,小一些实心的,为什么不是双引号,我该怎么改

FileCopy App.Path & "/db1.mdb",syspath & "/db1.mdb"

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

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

FileCopy App.Path & "/db1.mdb",GetSystemPath() & "/db1.mdb"

自己選擇閤適的API吧```

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

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