如果別人的繫統安裝在D盤或者別的盤呢?妳的程序不就糟糕叻``
佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
以下是引用xd03021506在2007-1-8 11:40:03的发言：
我用了以下代码
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『,,最后那个符号不知道打,但是就像这个符号,小一些实心的,为什么不是双引号,我该怎么改
我用了以下代码
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『,,最后那个符号不知道打,但是就像这个符号,小一些实心的,为什么不是双引号,我该怎么改
用你楼上的代码，你的代码是错的，syspath是一个缓冲区，长度是260，其中包括了系统的system目录名，后面跟着一些空字符。
s是得到的用效字符的长度，所以 left(syspath,s) 才是真正的 路径名。
