Как удалить скрытые файлы (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
