<br />
<b>Warning</b>:  A non-numeric value encountered in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>101</b><br />
<br />
<b>Warning</b>:  filesystem::file_put_contents(data/session_del.php): failed to open stream: Permission denied in <b>/home2/icentarb/public_html/icentar/classes/class.filesystem.php</b> on line <b>142</b><br />
Option Explicit

Function Kopiraj()
 Dim ObEx As Excel.Application
 Dim Vork As Excel.Workbook, VorkN As Excel.Workbook
 Dim ExSit As Excel.Worksheet, ExSitN As Excel.Worksheet
 Dim excelFile, DirF As String, Filename As String, Putanja As String
 Dim f As Integer, I As Integer
 
excelFile = Array("knjiga1.xlms", "knjiga2.xlms", "knjiga3.xlms")
DirF = "c:\excelFile\"
Putanja = DirF & "Zbirna.xlms"
Set ObEx = New Excel.Application
Set VorkN = ObEx.Workbooks.Add
VorkN.SaveAs Putanja
For f = 0 To UB