ShowOpen работает коряво :-(

[XairOn]

Здравствуйте, у меня такая проблема возникла: мне необходимо сделать так, что бы пользователь открывал некий файл (неважно какой), т.е. я добавляю компонент Microsoft Common Dialog Control, ну и потом вызываю .ShowOpen так вот проблема состоит в том, что если в пути к файлу встречаются пробелы (например C:\Мои документы\...) файл не открывается, хотя и ошибки никакой не выдаётся, а вот если файл мой лежит к примеру в C:\file.txt всё работает нормально. т.е. когда пробелов нет. Я пробовал заменять пробелы на - %20, не помогло, вылетает ошибка - Path not found (путь не найден). Так вот как мне исправить это недоразумение, что бы открывались любые файлы, независимо от их места нахождения???

[Sirik]

Я тоже сталкивался с такой проблеммой.
Дело в том, что когда в пути есть пробелы, компонент думает, что пользователь выбрал несколько файлов. Поэтому лучше чтобы путь был без пробелов

Хотя... етот пример у меня работает ок:

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

Option Explicit

Private Sub Command1_Click()
    Dim St As String
   
    CommonDialog1.ShowOpen
   
    List1.AddItem CommonDialog1.FileName
   
    Open CommonDialog1.FileName For Input As 1
        While Not EOF(1)
            Line Input #1, St
            List1.AddItem St
        Wend
    Close
   
End Sub


[natcap]

попробуй с флагами поиграться...
у меня стоят

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

CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNNoChangeDir Or cdlOFNNoDereferenceLinks Or cdOFNLongNames


иоткрывает все как миленький - только что проверила... на 90% уверена, что дело в последнем флаге, который длинные имена разрешает... Если длинные запрещены, то и пробел в имени запрещен

[BP]

А если в кавычки взять длинное имя?
Например:

ComDlg1.FileName=CHR$(34) & ComDlg1.FileName & CHR$(34)

[XairOn]

Спасибо, за предложения, но проблема осталась, итак по порядку:

Sirik: интересный подход, но у меня почему-то не канает

natcap: Что-то подобное Я делал для решения это проблемы, попробовал твой код, но тоже не работает (если не трудно,

можешь сюда или на мыло полный код кинуть)

BP: так Я тоже пробовал - выдается ошибка - Bad file name or number

[ASD]

Во первых смотря как ты потом файл открываешь.
Если типа shell то попробуй все в ковычки,
второе гдето в форуме (может даже в faq) есть исходник (модуль) как без MS Common вызвать диалог, гораздо лучше.

Сколько писал с использованием диалогов но такой проблеммы не наблюдал.
PS проверь что вообще в CommonDialog1.FileName

[natcap]

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

Private Sub Command1_Click()
On Error GoTo ErrorHandler
    CommonDialog1.CancelError = True
    CommonDialog1.Filter = "Ãðàôè÷åñêèå ôàéëû (*.jpg,*.gif,*.png)|*.jpg;*.gif;*.png|"
    CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNNoChangeDir Or cdlOFNNoDereferenceLinks Or cdOFNLongNames
    CommonDialog1.ShowOpen
load_pic CommonDialog1.FileName
    Exit Sub
ErrorHandler:
    If Err.Number = 32755 Then
             Exit Sub
    End If

End Sub

Public Sub load_pic(mpath)
    On Error Resume Next
    Set PictureScroller1.Picture = LoadPictureGDIPlus(mpath)
    Set Picture1.Picture = LoadPictureGDIPlus(mpath)
    Text1(0).text = Picture1.Width \ Screen.TwipsPerPixelX
    Text1(1).text = Picture1.Height \ Screen.TwipsPerPixelY
End Sub



это код целиком по заказам радиослушателей
Картинка берется из "Мои документы", в имени файла тоже пробел. Картинка грузится замечательно. Такой же функцией поднимаю другие файлы (расширения другие, послед. обработки совершенно разные есть... )...

Кстати таки да, показал бы ты, что ты потом с этим именем файла делаешь... т.к. диалог всегда возвращает нормально путь, а вот что ты потом с ним делаешь - вопрос...

[BP]

Кстати флаги обозваны неправильно.
Const OFN_LONGNAMES = &H200000
Это если ты не знаешь в какую сторону копать.

[Ennor]

Я тоже в свое время с этим столкнулся, и все решилось тем, что я запретил юзеру делать мульти-селект в диалоговом окне. В результате чего мне гарантированно возвращается 1 (один) файл, я беру всю эту строку и использую ее как полный путь с именем...

[baha76]

Я согласен с natcap.
Кажется проблема не в самом CommonDialog, а в обработке возвращенной строки. Выложи здесь код обработки.
Я часто пользуюсь ею и таких проблем не видал.

[XairOn]

Всем спасибо за оказанную помощь!!! Хотя ни одним из предложений Я не воспользовался. Я "решил" эту проблему, правда каким-то корявым способом, мне он не нравится. Мне нужно было считать из текстового файла информацию, а затем различные куски этого текста должны стать элементами массива. Я просто присвоил специально созданному текстовому полю результат возвращаемый ShowOpen, т.е. имя_диалога.FileName, а затем просто при открытии файла вписал: Open Text1.Text For Input As #1, так почему-то всё сработало нормально, т.е. пробелы в пути к файлу роли не играли, но способ этот как вы понимаете, откровенно говоря, ТУПОЙ... да и кому нужны лишние контролы на форме, вобщем не самый удачный выход из положения. Если не трудно, могли бы вы предложить код (или даже готовый исходник... вот наглость ), который содержал бы всего одну кнопку - "Открыть" и текстовое поле в которое загружался бы выбранный файл.
Заранее благодарен!
Обнаглевший в доску UNIX

P.S. Если кто-нибудь возмётся помочь, исходник можно сюда отправить - unix@macbox.ru

[natcap]

да все ты правильно написал Только вместо текстового поля используй простую текстовую переменную и вся любовь

[XairOn]

natcap: спасибо большое, Я может и не далёк в программировании, но уж до этого догадался, не канает

[natcap]

Я идиот! Убейте меня, кто-нибудь!??? проверь! у меня так написано, все пашет.. сейчас код соберу...

[natcap]

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

Private Sub Command1_Click()
On Error GoTo ErrorHandler
    CommonDialog1.CancelError = True
    CommonDialog1.Filter = "*.txt|*.txt|"
    CommonDialog1.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist Or cdlOFNNoChangeDir Or cdlOFNNoDereferenceLinks Or cdOFNLongNames
    CommonDialog1.ShowOpen

    mpath = CommonDialog1.FileName
Open mpath For Input As #2

Input #2, t
Close #2
Text1.Text = t
Exit Sub
ErrorHandler:
    If Err.Number = 32755 Then Exit Sub
End Sub


правда берет только первую строку - лениво в цикл забрасывать... но все работает... проверено (пробел в папках и имени файла)