Функции и процедуры для манипулирования файлами

Для манипулирования файлами предназначены следующие функции и процедуры:

Debug.Print FileLen(ThisWorkbook.Path & "\test.txt")

Если файл открыт, то можно воспользовать функцией LOF(<Дескриптор>);

Debug.Print FileDateTime(ThisWorkbook.Path & "\test.txt")
' 06.10.2012 20:05:23

Проверить, установлен атрибут или нет, позволяет оператор And. Если атрибут установлен, то результатом операции будет ненулевое значение:

Dim attr
attr = GetAttr(ThisWorkbook.Path & "\test.txt")
If (attr And vbReadOnly) <> 0 Then
   Debug.Print "Файл доступен только для чтения"
End If
SetAttr ThisWorkbook.Path & "\test.txt", vbReadOnly + vbHidden
Name ThisWorkbook.Path & "\test.txt" As _
     ThisWorkbook.Path & "\tests.txt"

Пример перемещения файла в другой каталог:

Name ThisWorkbook.Path & "\tests.txt" As _
     ThisWorkbook.Path & "\folder1\tests.txt"
FileCopy ThisWorkbook.Path & "\test2.txt", _
         ThisWorkbook.Path & "\folder1\test2.txt"
Kill ThisWorkbook.Path & "\test2.txt"

Пример удаления всех текстовых файлов в указанном каталоге:

Kill ThisWorkbook.Path & "\folder1\*.txt"
Предыдущая статья Все статьи Следующая статья