Можно ли в диалоге OpenFile принудительно указать путь?

[kibernetics2]

Здраствуйте!
Пользуюсь кастомным юзерконтролом. При вызове диалога открыть файл постоянно приходится лезть в дебри ища необходимую папку.
Вопрос такой: можно ли при вызове диалога "Открыть файл" принудительно указать путь к папке, в которой будет осуществляться выбор файла?
Сам проект с юзерконтролом прикладываю. По умолчанию он открывает путь c:\.

ucFolder.rar

ucBrowseFolder

(36.66 Кб) Скачиваний: 67

[pronto]

Найди функцию ShowOpen, добавь в её объявление параметр InitialFolder As String.
В теле функции найди блок With FileDialog ... End With, внутрь него вставь строку .sInitDir = InitialFolder.
P.S. Не понятно, есть ли смысл в использовании чужого UC, когда то же самое можно сделать стандартным CommonDialog'ом?

[kibernetics2]

P.S. Не понятно, есть ли смысл в использовании чужого UC, когда то же самое можно сделать стандартным CommonDialog'ом?

так стандартный CommonDialog же подрузамевает использование *.ocx, а не хочется юзать компоненты.

[pronto]

Можно и без OCX обойтись...

Код: Выделить всё

Private Const cdlOFNOverwritePrompt As Long = 2
Private Const cdlOFNAllowMultiselect As Long = 512
Private Const cdlOFNExtensionDifferent As Long = 1024
Private Const cdlOFNFileMustExist As Long = 4096
Private Const cdlOFNExplorer As Long = 524288

Option Explicit

Private Sub Command1_Click()
Dim CommonDialog1 As Object
Set CommonDialog1 = CreateObject("MSComDlg.CommonDialog")


' Sets the File List box to Word documents and Excel documents
CommonDialog1.Filter = "Word Documents (*.doc)|*.doc|Excel Spreadsheets (*.xls)|*.xls"

' Set the default files type to Word Documents
CommonDialog1.FilterIndex = 1

' Sets the flags - File must exist and Hide Read only
CommonDialog1.Flags = cdlOFNOverwritePrompt Or _
                      cdlOFNAllowMultiselect Or _
                      cdlOFNExtensionDifferent Or _
                      cdlOFNFileMustExist Or _
                      cdlOFNExplorer

' Set dialog box so an error occurs if the dialogbox is cancelled
CommonDialog1.CancelError = True

' Enables error handling to catch cancel error
On Error Resume Next
' display the dialog box
CommonDialog1.ShowOpen
If Err Then
    ' This code runs if the dialog was cancelled
    MsgBox "Dialog Cancelled"
    'Exit Sub
End If
' Displays a message box.
MsgBox "You selected " & CommonDialog1.FileName

End Sub

[Хакер]

так стандартный CommonDialog же подрузамевает использование *.ocx, а не хочется юзать компоненты.

А ты сможешь объяснить, почему не хочется юзать компоненты? Куча людей оставляла свои семьи, и в поте лица разрабатывала технологию COM и концепцию контролов. Чтобы потом люди заболели массовой истерией и начали необоснованно избегать использование контролов? Объясни это.

И да, если уж тебе не мил контрол, используй API-фукнции, над которым контрол является простой обёрткой.

И да, если ты клон пользователя kibernetics, то зачем такое делать?

[kibernetics2]

И да, если ты клон пользователя kibernetics, то зачем такое делать?

мне показалось, что мой акк удалён. т.к. на просьбу восстановить пасс, сайт сказал, что не знает такого ни ника, ни мейла.

не люблю юзать компоненты. постоянно ходишь по всем компам и ставишь недостающее.
инсталяк делать всё время после компиляции тоже хлопотняк.

Можно и без OCX обойтись...

не могу понять, где там задаётся путь, кторый мне нужен при открытии диалога?
как мне показать OpenFile с открытой папкой, например: c:\Windows\system32\?

[pronto]

Практически точно также, как и в первом случае: CommonDialog1.InitDir = "c:\Windows\system32"

[kibernetics2]

pronto спасиб милый человек. приду скоро домой - попробую сделать.

супер! код то что надо!

[ark]

Из подписи к аттачу я так понял, нужен диалог выбора папки, а не файла. Такого контрола в VB6 нету. Если нужен именно выбор папки -

BffDlg.zip

Browse for folder

(4.76 Кб) Скачиваний: 104

ЗЫ. А субклассинг в аттаче ТС оригинальный