Visual Basic

Live in such a way that you would not be ashamed to sell your parrot to the town gossip. - Will Rogers

<br />
Dim l_oWR As WebRequest<br />
        Dim l_oWebResp As WebResponse<br />
        Dim l_oBR As BinaryReader<br />
        Dim l_oBW As BinaryWriter<br />
        Dim l_oStream As Stream<br />
        Dim bFile() As Byte<br />
        Dim l_iCnt As Long<br />
        Dim l_dtNow As DateTime = DateTime.Now<br />
        Dim l_sDir As String = l_dtNow.ToString("MMddyyyy")<br />
        Dim l_oDir As Directory<br />
        Dim l_sFile As String<br />
        Dim l_sCnnStr As String<br />
<br />
        Try<br />
<br />
            'download file<br />
            l_oWR = HttpWebRequest.Create("http://www.abc.com/abc.exe")<br />
            l_oWebResp = l_oWR.GetResponse()<br />
            l_oBR = New BinaryReader(l_oWebResp.GetResponseStream(), Encoding.ASCII)<br />
            l_iCnt = l_oWebResp.ContentLength<br />
            bFile = l_oBR.ReadBytes(CType(l_iCnt, Integer))<br />
            If Not System.IO.Directory.Exists("C:\ofac") Then<br />
                System.IO.Directory.CreateDirectory("C:\ofac")<br />
            End If<br />
            l_oStream = New FileStream("C:\ofac\t11sdall.exe", FileMode.Create, FileAccess.Write)<br />
            l_oBW = New BinaryWriter(l_oStream)<br />
            l_oBW.Write(bFile)<br />