Demo how to download an internet file using My.Computer.Network.DownloadFile() [2009-05-10-AM-10-47-13]

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2009_05_10_AM_10_47_37]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
    Private Sub Do_DownloadFileFromInternet_2009_05_10_AM_10_44_11()
        ' (本段程式之目的) Purpose:
        '     Demo how to download an internet file using My.Computer.Network.DownloadFile()
        ' (本段程式是否已經在被使用中) In use: Yes
        ' (程式撰寫的進度) Developing: 100% (Mandatory)
        ' (程式堪用的程度) Workable: 80% (Threshold at 80%)
        ' (程式的測試程度) Code tested: 0% (max 99%)
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
        ' (修改程式的日期) Revision Date: (2009 05 10 AM 10 45 11)
        ' (修改程式的人員) Revised by: WeiJin Tang (湯偉晉)
        '
        '     Version 1.00.01; Last Updated on [2009-05-10-AM-10-45-55]
        '
        ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

        Dim URL As String
        URL = "http://11349240132027612376-a-g.googlegroups.com/web/Influenza+A+(H1N1)+Virus+Infection%2C+(swine+flu)+%5B2009-05-03%5D.mp3?hl=zh-TW&gda=QKdgWYMAAACniCMh1GzGPFMZzlWvIfDkjoGsmCZkafwQHbhJchlVCOieO0jE1BXEF-K6DwAW_D-U9vvZQjgU499OHIw-VegFJATjfGhGVklTHIIb03qlv8heNQyNXJDkhqXNTTYLcq0BcQpLqP8F8uRyN0FpiZImbcVT3VtYGKLco-_l-8AzjYnI_iG0FUcyafVtIn3AwlU"

        Dim FP As String
        FP = "D:\WeiJin Tang\"

        Dim FNOfDestinationFile As String
        FNOfDestinationFile = "Influenza A (H1N1) Virus Infection, (swine flu) [2009-05-03].mp3"

        Dim FPFNOfDestinationFile As String
        FPFNOfDestinationFile = FP & FNOfDestinationFile

        FPFNOfDestinationFile = "D:\WeiJin Tang\Influenza A (H1N1) Virus Infection, (swine flu) [2009-05-03].mp3"

        My.Computer.Network.DownloadFile(URL, FPFNOfDestinationFile)

    End Sub ' Do_DownloadFileFromInternet_2009_05_10_AM_10_44_11

' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' '  [2009_05_10_AM_10_47_37]  ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '