| Вопрос: Имя файла | Добавлено: 02.12.07 16:23 |
Автор вопроса:  lexei | ICQ: 464882716 |
|
Нужно узнать имя (не полный путь, а только имя) файла, выбраного(с помощью OpenFileDialog) пользователем. Вроде написал, но что-то не то
l = Len(OpenFileDialog1.FileName)
Do If Mid(OpenFileDialog1.FileName, l - i, 1)_ = "\" Then filename = Mid(OpenFileDialog1.FileName,_ l - i, i + 1) Else i = i + 1 End If Loop Until Mid(OpenFileDialog1.FileName, l - i,_ 1) <> "\" Label1.Text = filename |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #1 | Добавлено: 02.12.07 20:53 |
|
VB6: Public Function Get_FileName(strFileName As String) As String
Dim strTemp() As String On Error GoTo Func_Error strTemp = Split(strFileName, "\" 
Get_FileName = strTemp(UBound(strTemp())) Exit Function Func_Error: Get_FileName = sFileName End Function |
||
|
Номер ответа: 2 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #2 | Добавлено: 02.12.07 22:02 |
|
Dim strFileName As String = Me.OpenFileDialog1.FileName Dim f As New IO.FileInfo(strFileName) Dim ImyaFaila As String = f.Name 'имя Dim rasShirenie As String = f.Extension 'расширение ' и вообще покопайся в этом классе |
||
|
Номер ответа: 3 Автор ответа: minotawr Вопросов: 0 Ответов: 5 |
Профиль | | #3 | Добавлено: 10.12.07 13:20 |
|
используй класс path (System.IO)
dim file as string 'Путь dim fileName as string 'Имя файла OpenFileDialog1.Filter = "C(*.c)|*.c" OpenFileDialog1.ShowDialog() file = OpenFileDialog1.FileName fileName = Path.GetFileName(file) Path.GetFileName - Возвращает имя файла Path.GetExtension - расширение файла Path.GetDirectoryName - директория в которой находится файл Думаю тебе этого пока хватит. |
||
Страница: 1 |