Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Здорава!!!

http://ms.by.ru/HTML/193.htm

http://www.sql.ru/forum/actualthread.aspx?bid=4&tid=99425&pg=-1

Private Sub Кнопка5_Click()     Dim strFile As String, strFilter As String '    strFilter = "MS Access Database (*.mdb)|*.mdb|MDE-Files (*.mde)|*.mde|All Files (*.*)|*.*||"  strFilter = "All Files (*.*)|*.*||"     WizHook.Key = 51488399     WizHook.GetFileName 0, "AppName", "DlgTitle", "", strFile, "c:\", strFilter, 0, 0, 0, True     Me.Text3 = strFile End Sub

А открыть папку - как ???

==========================================================

Sub wzSplitPath() ' Sub SplitPath(Path As String,Drive As String, Dir As String, File As String, Ext As String) ' 'Ïðîèçâîäèò ðàçáîð ïîëó÷åííîé ñòðîêè ïîëíîãî ïóòè, 'âûäåëÿÿ óñòðîéñòâî, ïóòü, èìÿ è ðàñøèðåíèå ôàéëà.   Dim wzPath As String   Dim wzDrive As String   Dim wzDir As String   Dim wzFile As String   Dim wzExt As String     WizHook.Key = 51488399          wzPath = "c:\dir1\dir2\nombre_archivo.txt"          WizHook.SplitPath wzPath, wzDrive, wzDir, wzFile, wzExt      Me.Text3 = Me.Text3 & "   " & "Óñòðîéñòâî: " & wzDrive      Me.Text3 = Me.Text3 & "   " & "Êàòàëîã: " & wzDir      Me.Text3 = Me.Text3 & "   " & "Èìÿ ôàéëà: " & wzFile      Me.Text3 = Me.Text3 & "   " & "Ðàñøèðåíèå ôàéëà:" & wzExt      End Sub