Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function IscitajFoldere()
Dim fs As Object
Dim i As Integer
Dim folderPath As String
Set fs = CreateObject("Scripting.FileSystemObject")
For i = 0 To 24
On Error Resume Next ' Ako neki folder nije dostupan, preskoci ga
folderPath = fs.GetSpecialFolder(i)
If Err.Number = 0 Then
Debug.Print "Folder " & i & ": " & f