Вход | Регистрация

1С:Предприятие ::

Метки:

Как переименовать расширение файла?

Я
   Хе
11.11.04 - 02:15
Программно? ПереименоватьФайл() не работает - меняет только имя.
 
 
   romix
 
1 - 11.11.04 - 02:50
Попробуй поюзать Scripting.FileSystemObject - там много всяких функций для работы с файлами.


Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "file1.txt", "file2.txt"


В переводе на язык 1С это будет, видимо, так:
fso=СоздатьОбъект("Scripting.FileSystemObject");
fso.MoveFile("file1.txt", "file2.txt");
   bsg
2 - 11.11.04 - 03:53
ИмяФайла="";  
    Если Фс.ВыбратьФайл(0,ИмяФайла,,,"Текстовые файлы|*.txt")=1 Тогда
        НовоеИмяФайла=СтрЗаменить(ИмяФайла,".txt","");
        Фс.ПереименоватьФайл(ИмяФайла,НовоеИмяФайла,1);
    КонецЕсли;
    ИмяФайла="";
    Если Фс.ВыбратьФайл(0,ИмяФайла,,,)=1 Тогда
        НовоеИмяФайла=ИмяФайла+".tx";
        Фс.ПереименоватьФайл(ИмяФайла,НовоеИмяФайла,1);
    КонецЕсли;

В первом диалоге выбираю текстовый файл - расширение стирается, во втором выбираю файл без расширения (его же) - приписывает расширение tx.
Что я не правильно делаю?


Список тем форума
Рекламное место пустует   Рекламное место пустует
AdBlock убивает бесплатный контент. 1Сергей
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует