Как правильно вернуть атрибут файлу или папке? - 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

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


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

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

13   голосов , оценка 4 из 5
Похожие ответы