پس برای مسیر ویندوز از چی استفاده کنیم چون همه ویندوز ها که اسم پوشه ویندوزشون WINDOWS نیست ، مثلا ویندوز MRT اسم این پوشه رو گذاشته WINXPSP2 و چیزهای دیگه ای هم من دیدم که اینجوریند و اگه برنامه یه پوشه با این اسم دید ارور میده .
سلام
دوست عزیز من مثال پیدا کردن پوشه ویندوز و فایل Res رو باهم نوشتم درست کار کرد. کدی که مربوط به مسیر پوشه ویندوز هستش مربوط به تمام ویندوزهایی است که ممکنه اسم پوشه ویندوزشون فرق کنه .
درضم باید از منوی Project آیتم Refrencese را انتخاب کنی و از آن آیتم Microsoft Script Runtime را تیک بزنی .
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long _
) As Long
Public S As String
Private Sub Command1_Click()
Picture1.Picture = LoadPicture(S + "\Temp\00.jpg")
End Sub
Private Sub Form_Load()
S = Space(255)
'Get the Windows directory
WinDirectory = GetWindowsDirectory(S, 255)
S = Left$(S, WinDirectory)
Dim c() As Byte
c = LoadResData(101, "CUSTOM")
Open S + "\Temp\00.jpg" For Binary As #1
Put #1, , c()
Close #1
End Sub
درضم S متغیریه که مسیر پوشه ویندوز داخلشه.
موفق باشی .