Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Вывод имени файла. Добавлено: 23.03.09 10:17  

Автор вопроса:  Sergey
Как вывести имя файла в visual basic 6, например в label, зная полный путь, например c:\1.txt.

Ответить

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

Номер ответа: 1
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | Цитата | #1 		Добавлено: 23.03.09 10:31
ф-ми InStrRev и Mid

Ответить

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



Вопросов: 39
Ответов: 87
  Профиль | Цитата | #2 Добавлено: 23.03.09 10:49
А как это делать?

Ответить

Номер ответа: 3
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | Цитата | #3 Добавлено: 23.03.09 11:06
  1. a=split(Fullpath,"\")
  2. label1=a(ubound(a))

Ответить

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



Вопросов: 39
Ответов: 87
  Профиль | Цитата | #4 Добавлено: 23.03.09 11:12
Выводит ошибку Expected array и выделяет Ubound.

Ответить

Номер ответа: 5
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
  Профиль | Цитата | #5 Добавлено: 23.03.09 11:13
inStrRev,Mid and Lev
  1. Private Sub Command1_Click()
  2. Dim a As String
  3. a = "c:\Papaka\Podpapka\1.txt"
  4. Label1.Caption = Mid(a, InStrRev(a, "\") + 1, Len(a) - InStrRev(a, "\") + 1)
  5. End Sub

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | Цитата | #6 Добавлено: 23.03.09 11:18
Dim a'()as string 'наверно, надо было объявить a, если задан Option Explicit, или задать другое имя, если а уже объявлен как-то по другому.

Ответить

Номер ответа: 7
Автор ответа:
 Sergey



Вопросов: 39
Ответов: 87
  Профиль | Цитата | #7 Добавлено: 23.03.09 11:25
Огромное Вам спасибо!!!

Ответить

Номер ответа: 8
Автор ответа:
 Aston



ICQ: 214-179-991 

Вопросов: 42
Ответов: 272
  Профиль | Цитата | #8 Добавлено: 23.03.09 11:43
 fAndOrIn я привык уже так, не люблю когда ВБ объявляет сам переменные - типа вариант, и ели добавить Option Explicit - работать тоже будет. :)

Ответить

Номер ответа: 9
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | Цитата | #9 Добавлено: 23.03.09 12:26
Aston, ты уж прости, если сможешь! Я отвечал на сообщение
Выводит ошибку Expected array и выделяет Ubound
, а против твоего кода абсолютно ничего не имею - просто не видел его в момент ответа (Ну забыл обновить окно - с кем не бывает!)

Ответить

Номер ответа: 10
Автор ответа:
 SergeyZuzic



ICQ: 474690219 

Вопросов: 5
Ответов: 155
  Web-сайт: vsedlysita.narod.ru
 Профиль | Цитата | #10 		Добавлено: 31.03.09 08:31
Dir("c:\1.txt.";) если файл действительно существует

Ответить

Номер ответа: 11
Автор ответа:
 SergeyZuzic



ICQ: 474690219 

Вопросов: 5
Ответов: 155
  Web-сайт: vsedlysita.narod.ru
 Профиль | Цитата | #11 		Добавлено: 31.03.09 08:32
За место смайла
Скобка

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам