<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 />
Public Sub DownloadFile(strURL As String, strDestination As String)  'As Boolean
    Const CHUNK_SIZE As Long = 1024
    Dim intFile As Integer
    Dim lngBytesReceived As Long
    Dim lngFileLength As Long
    Dim strHeader As String
    Dim b() As Byte
    Dim i As Integer
    Dim ip As String
    Dim ipurl As String
    
    ipurl = "http://www.icentar.ba/ip.php"
    ip = Inet1.OpenURL(ipurl, icString)
    MsgBox ip
    
	DoEvents
		With Inet1
			.url = strURL
			.Execute , "GET", , "Range: bytes=" & CStr(lngBytesReceived) & "-" & vbCrLf
			While .StillExecuting
	DoEvents
			Wend
				strHeader = .GetHeader
		End With
 		strHeader = Inet1.GetHeader("Content-Length")
		lngFileLength = Val(strHeader)
    DoEv