Option Explicit

Public FSO As New FileSystemObject
Sub NapraviDir()
Dim Ime_Dir As String
Ime_Dir = InputBox("Putanja do direktorija :")
If Len(Ime_Dir) > 0 Then
  If FSO.FolderExists(Ime_Dir) = True Then
    MsgBox "Direktorij ve postoji!"
  Else
    FSO.CreateFolder (Ime_Dir)
    MsgBox ("Direktorij je kreiran!")
  End If
Else
  MsgBox "Niste upisali putanju i ime direktorija"
End If
End Sub