VB6 ｐｄｆの保存 (ID:103415)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ＷｉｎＸｐ  のＶＢ６  ｓｐ６  にて、
下記のＵＲＬの
http://www.yuushirai.jp/shirai/Licence/Exam/Exammenu.html  の中の
下記のページ内の
http://www.yuushirai.jp/shirai/Licence/Exam/1-soutu.html  の中の
「２０１２．０９」「 問題 」のリンク先ＵＲＬ
http://www.yuushirai.jp/shirai/Licence/Exam/mon/sogo-tu-1/201209/sogo-tu-1-kiso-mondai-201209.pdf  を保存したいと思いますが
別ページの内容が保存されてしまい目的のＰＤＦの保存が出来ません。
保存されてしまうは下記のページです。
http://www.yuushirai.jp/shirai/Licence/Exam.html

Ｗｅｂページ上でリンク「２０１２．０９」の「 問題 」をクリックすれば別ページには表示されるのですがＶＢにて自動保存をしようとしています。

ご指導をお願いします。

Private Declare Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private SaveFileName As String
Private DownloadFile As String
Private Ret          As Long

Private Sub Command1_Click()

URL = "http://www.yuushirai.jp/shirai/Licence/Exam/mon/sogo-tu-1/201209/sogo-tu-1-kiso-mondai-201209.pdf"
        SaveFileName =  "C:\201209.pdf"
        DownloadFile = URL
        Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る