| Вопрос: Как поменять расширение файла?????????? | Добавлено: 13.09.03 17:55 |
Автор вопроса:  Votmax  | Web-сайт: basiccenter.narod.ru
|
 Как поменять расширение файла??????????
|
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 13.09.03 19:44 |
|
fn-Имя файла fnx - тоже const new = ".fgh" - новое расш. fnx=mid(fn,1,len(fn)-4) Что то вроде того потом надо просто файл переименовать. VB под рукой нет, проверить не могу. Будут вопросы-пиши, отвечу |
||
|
Номер ответа: 2 Автор ответа:  ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #2 | Добавлено: 14.09.03 04:03 |
|
> fnx=mid(fn,1,len(fn)-4) Во-первых, так не пойдёт, потому что бывают и длинные расширения, например проект VB .NET - .vbproj. Так что надо искать точку. Во-вторых, лучше, удобнее и бустрее юзать Left вместо Mid. |
||
|
Номер ответа: 3 Автор ответа: S_Serg Вопросов: 9 Ответов: 25 |
Профиль | | #3 | Добавлено: 15.09.03 03:25 |
|
Если нужно поменять расширение файла на диске, то его просто нужно переименовать с тем же именем, но с новым расширением: name "file.txt" as "file.bak" |
||
|
Номер ответа: 4 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #4 | Добавлено: 15.09.03 12:04 |
|
Не майся дурью, используй split (VB6). Типа Temp=split(FullName,".") FileExt=Temp(Ubound(Temp)) Пример: Private Sub Form_Load() Dim temp() As String Dim FullName As String Dim FileExt As String FullName = "c:\file.new.text.txt" temp = Split(FullName, ".") FileExt = temp(UBound(temp)) Text1 = FileExt End Sub |
||
Страница: 1 |