25.02.2015, 02:43
|
#6
|
|
AnyKey`щик
Регистрация: 20.11.2013
Сообщений: 18
Написано 4 полезных сообщений
(для 6 пользователей)
|
Ответ: Расширение файла
Сообщение от Wegox
Function GetFileExtension$(file$, div$ = ".")
Return Right$(file$,Len(file) - Instr(file, div))
End Function
Print GetFileExtension("A:\Directory\file.exe")
 |
Повелитель оптимизации  |
|
(Offline)
|
|