Как правильно вернуть атрибут файлу или папке? - VB
Формулировка задачи:
Подскажите пожалуйста как правильно доработать программу?)
P.S:компилятор на 44 строку ругается)
Решение задачи: «Как правильно вернуть атрибут файлу или папке?»
textual
Листинг программы
Sub MakeDir(dirname As String) Dim i As Long, path As String Do i = InStr(i + 1, dirname & "\", "\") path = Left$(dirname, i - 1) If Right$(path, 1) <> ":" And Dir$(path, vbDirectory) = "" Then MkDir path End If Loop Until i >= Len(dirname) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д