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 & ": " & folderPath
        Else
            Debug.Print "Folder " & i & ": Nema pristupa"
        End If
        On Error GoTo 0
    Next i

End Function