<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
private sub test()
	Dim imeFile As String
        Dim FF As Integer
        Dim folderPath As String
	Dim x as Integer
	Dim y as Integer
	Dim z as Integer
	Dim matrica() as String
	
	' napunimo matricu nekim podacima
	'x=4:y=3:z=10
	'Redim matrica(1 to x,1 to y,1 to z)
	'matrica(1,1,1)="nesto"
	'matrica(1,1,2)="nesto drugo"
	'itd do
	'matrica(4,3,10)="zadnji podataka"

	'snimanje matrice
        folderPath = Application.ActiveWorkbook.Path
        FF = FreeFile()
        imeFile = folderPath & "/matrica.bin"
        
        Open imeFile For Binary Access Write As #FF
            Put #FF, , x'velicina prvog polja