<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 Command1_Click()
Dim url As String
 Dim extension As String
 url = "http://jedno.weebly.com/uploads/4/5/6/0/45602969/data.txt"
 extension = ".txt"
 Call skiniFajl(url, extension)
 End Sub
Public Function skiniFajl(url As String, extension As String)
     On Error GoTo Error
     Dim strURL As String
     Dim bData() As Byte
     Dim intFile As Integer
     Dim icByteArray
     
     strURL = url
     intFile = FreeFile()
     bData() = Inet1.OpenURL(strURL, icByteArray)
     Open "C:\temp." & ext