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