Поправить Ошибку кода - VB

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

Ребята укажите где ошибка измаялся я весь!

                    Листинг программы
                
MkDir "App.Path & Format(Date, "Mmmm YYYY") & ""

так работает:

                    Листинг программы
                
MkDir "D:\Мои документы\Desktop\ОТЧЕТЫ\ " & Format(Date, "Mmmm YYYY") & ""

Решение задачи: «Поправить Ошибку кода»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim strPath As String
    strPath = App.Path & "" & Format(Date, "Mmmm YYYY")
    If DirExist(strPath) Then
        MsgBox "Папка существует"
    Else
        MkDir strPath
        MsgBox "Папка успешно создана"
    End If
End Sub
 
Function DirExist(dirName As String) As Boolean
    On Error Resume Next
    DirExist = Dir$(dirName, vbDirectory) <> ""
    If Err.Number <> 0 Then DirExist = False
    On Error GoTo 0
End Function

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

8 голосов , оценка 3.5 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы