Предыдущая страница реферата | 1  2  3  4  5  6  7  8

txtfile.Close

MsgBox "Moving file to c:tmp"

' Код обработки файла в корне C:

Set fil1 = fso.GetFile("c:testfile.txt")

' Перемещаем файл в директорию tmp

fil1.Move ("c:tmptestfile.txt")

MsgBox " Копируем файл в c:temp"

' Копируем файл в temp

fil1.Copy ("c:temptestfile.txt")

MsgBox "Удаляем файлы"

' Код получения текущих дерикторий файлов

Set fil1 = fso.GetFile("c:tmptestfile.txt")

Set fil2 = fso.GetFile("c:temptestfile.txt")

' Удаляем дайлы

fil1.Delete

fil2.Delete

MsgBox "Все!"

End Sub

Скачали данный реферат: Рюмов, Маслак, Ярошинский, Лепёхин, Balakin, Ajushiev, Луковников.
Последние просмотренные рефераты на тему: решебники за 8 класс, сочинение рассуждение, сочинения по русскому языку, ответы на билеты.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8

Поделитесь этой записью или добавьте в закладки