Реферат: FSO – тяжелая артиллерия VB6

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