| Вопрос: работа с файлом | Добавлено: 08.05.08 16:01 |
Автор вопроса:  KreAtoR
|
|
1.Как при получении имени файла обрезать его расширение вместе с точкой.
2. Как скопировать файл и присвоить ему имя 3. как удалить файл |
| Ответы | Всего ответов: 20 |
|
Номер ответа: 1 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | Цитата | #1 | Добавлено: 08.05.08 16:07 |
|
1. Public Function GetFileName(flname As String) As String 'Get the filename without the path or extension. 'Input Values: ' flname - path and filename of file. 'Return Value: ' GetFileName - name of file without the extension. Dim posn As Integer, i As Integer Dim fName As String posn = 0 'find the position of the last "\" character in filename For i = 1 To Len(flname) If (Mid(flname, i, 1) = "\"  Then posn = i
Next i 'get filename without path fName = Right(flname, Len(flname) - posn) 'get filename without extension posn = InStr(fName, "."
If posn <> 0 Then fName = Left(fName, posn - 1) End If GetFileName = fName End Function 2. filecopy 3. kill |
||
|
Номер ответа: 2 Автор ответа:  KreAtoR Вопросов: 120 Ответов: 438 |
Профиль | Цитата | #2 | Добавлено: 08.05.08 19:23 |
| спасибо большое | ||
|
Номер ответа: 3 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 08.05.08 21:09 |
|
UU
В данном случае ты показал незнание оператора instrrev, даже незнаю куда тебе лучше вернуться чтобы таки уже освоить его |
||
|
Номер ответа: 4 Автор ответа: Fatty Вопросов: 0 Ответов: 55 |
Профиль | Цитата | #4 | Добавлено: 08.05.08 21:35 |
|
В данном случае ты показал незнание оператора instrrev, даже незнаю куда тебе лучше вернуться чтобы таки уже освоить его
Тебе тоже куда-нибудь, поскольку это не оператор, а сугубо функция А лучше бы выложил пример, мы бы тут по слабости ума возрадовались бы ~'J'~ |
||
|
Номер ответа: 5 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 08.05.08 21:50 |
|
Не встревай и стёб твой неуместен, он понял о чем я.
Лучше посмотри по внимательней сюда http://www.vbnet.ru/forum/show.aspx?id=165118&page=4 А лучше бы выложил пример, мы бы тут по слабости ума возрадовались бы
Легко, радовать слабоумных это моё хобби 
Public Function GetFileName(flname As String) As String flname = Right$(flname, Len(flname) - InStrRev(flname, "\" )
GetFileName = Left$(flname, InStr(flname, "." - 1)
End Function |
||
|
Номер ответа: 6 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 08.05.08 21:53 |
|
Чуешь разницу?
И даже не GetFileName = Left$(flname, InStr(flname, "." - 1)
а GetFileName = Left$(flname, InStr(flname, "." - vbnull)
|
||
|
Номер ответа: 7 Автор ответа: FattyВопросов: 0 Ответов: 55 |
Профиль | Цитата | #7 | Добавлено: 08.05.08 21:57 |
|
Ну так и славно - и человеку помог, и
раздуваться не надо, чего ж тут плохого? Regards, ~'J'~ |
||
|
Номер ответа: 8 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 08.05.08 22:06 |
|
Подумаеш маленькая месть, а приятно
Эт обычное дело, самому по пустякам лень красиво писать бывает пишу новомодный быдлокод раздуваться мне смысла нет, тут есть и круче.
Какой здоров такой и досвиданья. |
||
|
Номер ответа: 9 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | Цитата | #9 | Добавлено: 15.05.08 12:57 |
|
Smith, и что мне вернет твоя функция, скажем, в случае flname = "MailedFile.zip.txt"?
Так что подумай еще немного над кодом... PS Для новичков всегда рекомендовал юзать FSO. Многие подводные камушки позволяет обойти. |
||
|
Номер ответа: 10 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #10 | Добавлено: 15.05.08 13:26 |
|
рекомендовал юзать FSO
Без ошибок написать "Юзай FSO" не сложно, но для большинства новичков это не подсказка. "MailedFile.zip.txt"
В моём коде уже есть всё, что нужно знать, чтоб его подогнать под этот изврат. |
||
|
Номер ответа: 11 Автор ответа: FattyВопросов: 0 Ответов: 55 |
Профиль | Цитата | #11 | Добавлено: 15.05.08 13:34 |
|
PS Для новичков всегда рекомендовал юзать FSO. Многие подводные камушки позволяет обойти.
Краем уха слышал: если ты работаешь на своем компьютере и обладаешь привилегиями админа - то да, а иначе доступ к файловой системе по локалке может быть перекрыт злобным админом (и во многих фирмах это практикуется) ~'J'~ |
||
|
Номер ответа: 12 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | Цитата | #12 | Добавлено: 16.05.08 12:18 |
| у меня проблема с функицией KILL она ждет на вход файл, а мне надо удалить содержимое папки. что сделать? | ||
|
Номер ответа: 13 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #13 | Добавлено: 16.05.08 12:41 |
|
Удалить все файлы по очереди, а потом RmDir.
Либо опять же юзать FSO. Справочник по FSO прилагаю: http://domkratt.com/shared/help/vb/fso_objects.chm |
||
|
Номер ответа: 14 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #14 | Добавлено: 16.05.08 12:41 |
| Shell "del /f /s /q ""Путь\Папка\*.*""", vbHide | ||
|
Номер ответа: 15 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | Цитата | #15 | Добавлено: 16.05.08 12:58 |
| Smith че то неправильно с формулой? | ||