Prikazi cijelu temu 12.02.2025 00:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re:cod 2016 i 2003
PreuzmiIzvorni kôd (Visual Basic):
  1. Function IscitajFoldere()
  2. Dim fs As Object
  3. Dim i As Integer
  4. Dim folderPath  As String
  5.  
  6.   Set fs = CreateObject("Scripting.FileSystemObject")
  7.  
  8.     For i = 0 To 24
  9.         On Error Resume Next ' Ako neki folder nije dostupan, preskoci ga
  10.        folderPath = fs.GetSpecialFolder(i)
  11.         If Err.Number = 0 Then
  12.             Debug.Print "Folder " & i & ": " & folderPath
  13.         Else
  14.             Debug.Print "Folder " & i & ": Nema pristupa"
  15.         End If
  16.         On Error GoTo 0
  17.     Next i
  18.  
  19. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.