Как удалить скрытые файлы (VB 6.0)?

Узнай цену своей работы

Формулировка задачи:

Как удалить скрытые файлы с помощю програмы сделаной у VB 6.0

Решение задачи: «Как удалить скрытые файлы (VB 6.0)?»

textual
Листинг программы
Private Sub Main()
' Переменные
Dim strFile As String  ' имя файла
' Код
' определение имени файла
strFile = "c:1.txt"
' снятие аттрибутов "Скрытый", "Системный" и "Только для чтения"
VBA.SetAttr strFile, (VBA.GetAttr(strFile) And vbArchive)
' удаление файла
Kill strFile
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5