Predmet:Kreiranje direktorija
Da bi procedura radila u referencama treba biti ukljuceno:
Microsoft Sripting Runtime
Procedura kreira direktorij na zadatoj putanji
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.