ايران ويج

نسخه‌ی کامل: مشكل با تابع get system directory ...
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
با سلام
من با اين تابع كمي مشكل دارم و مشكل سر اينه كه من مي خوام يه فايل رو تو سيستم 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
ولي "\" اضافه نميشه :?: :?:
این طوری هم میشه آدرس فولدر سیستم رو پیدا کرد

کد:
Label.Caption = Environ("windir") & "\system32"
دست درد نكنه!! Biggrin
ولي ميشه بگي اين دستور كوتاه چه جوري تونست اين كاررو انجام بده؟؟؟ :?:
يعني اون... Environ("x") & sy يه جور جستجو هست؟؟؟

در كل ممنون و منتظر جواب هستم. 8)