View Full Version : open
mtsoft
شنبه 22 مهر 1385, 02:40 صبح
با سلام خدمت همه دوستان عزیز
امید وارم که طاعات و عبادات همتون مورد قبول حق واقع بشه.
یک سوال داشتم
می خواستم ببینم ایا کدی هست که پنجره open رو نشون بده اما فقط پوشه توش دیده تقریبا مثل پنجره copy to
با تشکر
Goeezor
شنبه 22 مهر 1385, 04:26 صبح
با سلام خدمت همه دوستان عزیز
امید وارم که طاعات و عبادات همتون مورد قبول حق واقع بشه.
یک سوال داشتم
می خواستم ببینم ایا کدی هست که پنجره open رو نشون بده اما فقط پوشه توش دیده تقریبا مثل پنجره copy to
با تشکر
منظورت چیه؟
حامد مصافی
یک شنبه 23 مهر 1385, 00:11 صبح
سلام
کد زیر رو در پمانه فم تایپ کنید
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Function GetBrowseDirectory() As String
Dim FolderRetVal As Long
Dim IDRetVal As Long
Dim FolderID As BROWSEINFO
Dim tmpPath As String
Dim NullCharPos As Integer
FolderRetVal = SHBrowseForFolder(FolderID)
tmpPath = Space(512)
IDRetVal = SHGetPathFromIDList(ByVal FolderRetVal, ByVal tmpPath)
If IDRetVal Then
NullCharPos = InStr(tmpPath, Chr(0))
tmpPath = Left(tmpPath, NullCharPos - 1)
GetBrowseDirectory = tmpPath
Else
GetBrowseDirectory = vbNullString
End If
End Function
تابع GetBrowseDirectory نام فولدر انتخابی کاربر رو بر می گردونه
mtsoft
سه شنبه 25 مهر 1385, 03:47 صبح
دست شما د رد نکنه خیلی ممنون
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.