質問: 0 then msgbox "ダウンロード完了!" else msgbox "ファイルをダウンロードできませんでした" end if end sub 実際にはここへwshを用いてデスクトップに保存できるように するつもりでもあります。宜しくお願い致します。 環境:win10 enteprise office 2016
回答: こちらを見ると、 msdn - urldownloadtofile function https://msdn.microsoft.com/ja-jp/windows/ms775123(v=vs.80) ダウンロード成功時の返り値は「s_ok」だそうなので、 if lngres = s_ok then msgbox "ダウンロード完了!" として見るとか。 また、英文のテキストはよう読みませんが、ファイルが作れない時、ダウンロードがキャンセルされた時もs_ok出すように読めるので、 strpath = "c:\test.txt" と、具体的なファイル名を指定しては。 あるいは、vbで良くあるけど、\はエスケープシーケンスだと解釈されるので、"c:\\test.txt"とかでなきゃマズイとかって事もあるかも?