Вопрос: работа с файлом | Добавлено: 08.05.08 16:01 |
Автор вопроса: ![]() |
1.Как при получении имени файла обрезать его расширение вместе с точкой.
2. Как скопировать файл и присвоить ему имя 3. как удалить файл |
Ответы | Всего ответов: 20 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() Вечный Юзер! 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) = "\" ![]() 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 120 Ответов: 438 |
Профиль | Цитата | #2 | Добавлено: 08.05.08 19:23 |
спасибо большое |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 08.05.08 21:09 |
UU
В данном случае ты показал незнание оператора instrrev, даже незнаю куда тебе лучше вернуться чтобы таки уже освоить его |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 0 Ответов: 55 |
Профиль | Цитата | #4 | Добавлено: 08.05.08 21:35 |
В данном случае ты показал незнание оператора instrrev, даже незнаю куда тебе лучше вернуться чтобы таки уже освоить его
Тебе тоже куда-нибудь, поскольку это не оператор, а сугубо функция А лучше бы выложил пример, мы бы тут по слабости ума возрадовались бы ~'J'~ |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: ненавижу Вопросов: 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, "." ![]() End Function |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 08.05.08 21:53 |
Чуешь разницу?
И даже не GetFileName = Left$(flname, InStr(flname, "." ![]() а GetFileName = Left$(flname, InStr(flname, "." ![]() ![]() |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 0 Ответов: 55 |
Профиль | Цитата | #7 | Добавлено: 08.05.08 21:57 |
Ну так и славно - и человеку помог, и
раздуваться не надо, чего ж тут плохого? Regards, ~'J'~ |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 08.05.08 22:06 |
Подумаеш маленькая месть, а приятно ![]() Эт обычное дело, самому по пустякам лень красиво писать бывает пишу новомодный быдлокод ![]() Какой здоров такой и досвиданья. |
Номер ответа: 9 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | Цитата | #9 | Добавлено: 15.05.08 12:57 |
Smith, и что мне вернет твоя функция, скажем, в случае flname = "MailedFile.zip.txt"?
Так что подумай еще немного над кодом... PS Для новичков всегда рекомендовал юзать FSO. Многие подводные камушки позволяет обойти. |
Номер ответа: 10 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #10 | Добавлено: 15.05.08 13:26 |
рекомендовал юзать FSO
Без ошибок написать "Юзай FSO" не сложно, но для большинства новичков это не подсказка. "MailedFile.zip.txt"
В моём коде уже есть всё, что нужно знать, чтоб его подогнать под этот изврат. |
Номер ответа: 11 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 0 Ответов: 55 |
Профиль | Цитата | #11 | Добавлено: 15.05.08 13:34 |
PS Для новичков всегда рекомендовал юзать FSO. Многие подводные камушки позволяет обойти.
Краем уха слышал: если ты работаешь на своем компьютере и обладаешь привилегиями админа - то да, а иначе доступ к файловой системе по локалке может быть перекрыт злобным админом (и во многих фирмах это практикуется) ~'J'~ |
Номер ответа: 12 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 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 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | Цитата | #14 | Добавлено: 16.05.08 12:41 |
Shell "del /f /s /q ""Путь\Папка\*.*""", vbHide |
Номер ответа: 15 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 120 Ответов: 438 |
Профиль | Цитата | #15 | Добавлено: 16.05.08 12:58 |
Smith че то неправильно с формулой? |
|