Prikazi cijelu temu 12.03.2017-13:45
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: Kreiranje direktorija
Da bi procedura radila u referencama treba biti ukljuceno:
Microsoft Sripting Runtime
Procedura kreira direktorij na zadatoj putanji

DownloadIzvorni kod (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

Pozdrav