Разборка с папками и файлами.

[--=GAMER=--]

1. Нужно присвоить ПАПКЕ определёное свойство.
2. Нужно вырезать,вставит,копировать,удалить папку
3. Нужно вырезать,вставит,копировать,удалить файл

Спасибо за ответы!

[Sedge]

Код: Выделить всё


Dim oFSO As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File

Set oFolder = oFSO.GetFolder("<путь>")
With oFolder
  .Attributes = Archive + Hidden + System
  .Copy ("<путь>")
  .Move ("<путь>")
  .Delete
End With

Set oFile = oFSO.GetFile("<путь>")
With oFile
  .Copy ("<путь>")
  .Move ("<путь>")
  .Delete
End With