open

[mtsoft]

با سلام خدمت همه دوستان عزیز
امید وارم که طاعات و عبادات همتون مورد قبول حق واقع بشه.
یک سوال داشتم
می خواستم ببینم ایا کدی هست که پنجره open رو نشون بده اما فقط پوشه توش دیده تقریبا مثل پنجره copy to
با تشکر

[Goeezor]

با سلام خدمت همه دوستان عزیز
امید وارم که طاعات و عبادات همتون مورد قبول حق واقع بشه.
یک سوال داشتم
می خواستم ببینم ایا کدی هست که پنجره open رو نشون بده اما فقط پوشه توش دیده تقریبا مثل پنجره copy to
با تشکر

منظورت چیه؟

[حامد مصافی]

سلام
کد زیر رو در پمانه فم تایپ کنید



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]

دست شما د رد نکنه خیلی ممنون