VBNet - Форум - CommonDialog problem не находил файл хоть он та...

Вопрос: CommonDialog problem не находил файл хоть он та... Добавлено: 25.03.03 00:00

Автор вопроса: Dimael | Web-сайт: pcnews.boom.ru | ICQ: 160511031

Добавил условие IF при попытке открыть файл появляется сообшение "No files selected" почему же данный файл никак не открывется? В чем могуть быть проблемы

Private Sub Command2_Click()

On Local Error GoTo Open_Error

CommonDialog1.CancelError = True

CommonDialog1.Filter = "Your File Description (*.*)|*.*" '|"

CommonDialog1.FilterIndex = 1

CommonDialog1.ShowOpen

If Len(FileName) = 0 Then

MsgBox "No files selected"

Exit Sub

End If

FileName = CommonDialog1.FileName

'загрузка данных

Open_Error:

End Sub

Ответить

Ответы Всего ответов: 6

Номер ответа: 1
Автор ответа:

Gravity

Вопросов: 6
Ответов: 120

Профиль | | #1

Добавлено: 25.03.03 00:10

Я вот делаю всегда так:

Private Sub Command2_Click()

On Error GoTo 10

CommonDialog1.CancelError = True

CommonDialog1.Filter = "Your File Description (*.*)|*.*" '|"

CommonDialog1.FilterIndex = 1

CommonDialog1.ShowOpen

FileName = CommonDialog1.FileName

'загрузка данных

End Sub

Если ты не выбрал файл просто значение FileName не изменится, вот и всё

Ответить

Номер ответа: 2
Автор ответа:

Dimael

ICQ: 160511031

Вопросов: 18
Ответов: 40

Web-сайт: pcnews.boom.ru
Профиль | | #2

Добавлено: 25.03.03 00:17

Gravity

И что это изменет

Ведь у меня как если файл я ставлю в коде типа

Open "c:\number.txt" For Input As #FreeFile

то всё работает без каких либо проблем

но стоит мне поменять код

Open FileName For Input As #FreeFile то как виш ни .... ни чё не работает

При попытке открыть файл number.txt говорит типа фай не открыт!Почему?

Ведь он же лежит там целенький не вредимый

Если есть какие нить коментарии буду блогодарен

С утра вот торчу на этом

Ответить

Номер ответа: 3 Автор ответа: P ICQ: 346632205 Вопросов: 5 Ответов: 86	Профиль \| \| #3	Добавлено: 25.03.03 02:11
	Private Sub Command1_Click() On Error GoTo ErrHandler Dim FName As String Dim FileNum As Integer Dim Str1 As String FileNum = FreeFile CommonDialog1.CancelError = True CommonDialog1.Filter = "Your File Description (.)\|." '\|" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen FName = CommonDialog1.FileName Open FName For Input As #FileNum Str1 = Input(FileLen(FName), 1) Close #FileNum Text1.Text = Str1 Exit Sub ErrHandler: MsgBox "No files selected!" End Sub Ответить

Номер ответа: 4
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #4

Добавлено: 25.03.03 02:18

не понял проблему, так работает:

Private Sub Command2_Click()
Dim strNam As String
With CommonDialog1
.CancelError = True
.Filter = "Your File Description (*.*)|*.*"
.FilterIndex = 1
.ShowOpen
If Len(.FileName) = 0 Then
MsgBox "No files selected"
Exit Sub
End If
End With
strNam = CommonDialog1.FileName
Open strNam For Input As #1
'твой код
Close #1
End Sub

Ответить

Номер ответа: 5 Автор ответа: *CyRax* Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229	Web-сайт: basicproduction.nm.ru Профиль \| \| #5	Добавлено: 25.03.03 08:17
	Ошибка тут: If Len(FileName) = 0 Then MsgBox "No files selected" End If Ответить

Номер ответа: 6
Автор ответа:

Dimael

ICQ: 160511031

Вопросов: 18
Ответов: 40

Web-сайт: pcnews.boom.ru
Профиль | | #6

Добавлено: 25.03.03 14:34

Спасибо всем!

Проблема решена

Ответить

Страница: 1 |