۱۵-آذر-۱۳۸۴, ۲۳:۰۱:۲۱
با سلام
من با اين تابع كمي مشكل دارم و مشكل سر اينه كه من مي خوام يه فايل رو تو سيستم 32 طرف كپي كنم و با اين تابع تونستم ادرس سيستم 32 طرف يارو رو پيدا كنم ولي وقتي مي خوام چيزي به اين ادرس اضافه كنم مشكل پيش مي ياد:
ولي "\" اضافه نميشه :?: :?:
من با اين تابع كمي مشكل دارم و مشكل سر اينه كه من مي خوام يه فايل رو تو سيستم 32 طرف كپي كنم و با اين تابع تونستم ادرس سيستم 32 طرف يارو رو پيدا كنم ولي وقتي مي خوام چيزي به اين ادرس اضافه كنم مشكل پيش مي ياد:
کد:
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim SystemDir As String
SystemDir = Space(256)
GetSystemDirectory SystemDir, Len(SystemDir)
"\" & label1.caption = SystemDir