Prikazi cijelu temu 12.03.2017 13:45
zxz Na mrezi
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Option Explicit
  2.  
  3. Public FSO As New FileSystemObject
  4. Sub NapraviDir()
  5. Dim Ime_Dir As String
  6. Ime_Dir = InputBox("Putanja do direktorija :")
  7. If Len(Ime_Dir) > 0 Then
  8.   If FSO.FolderExists(Ime_Dir) = True Then
  9.     MsgBox "Direktorij ve postoji!"
  10.   Else
  11.     FSO.CreateFolder (Ime_Dir)
  12.     MsgBox ("Direktorij je kreiran!")
  13.   End If
  14. Else
  15.   MsgBox "Niste upisali putanju i ime direktorija"
  16. End If
  17. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.