nishito24のプロフィール

質問ですが、 'フォルダセット Dim fbd As New FolderBrowserDialog fbd.Description = "フォルダを指定して下さい。" fbd.RootFolder = Environment.SpecialFolder.Desktop fbd.SelectedPath = Environment.SpecialFolder.Desktop 'コピー System.IO.File.Copy(fbd.SelectedPath & "\test.pak", System.Environment.GetFolderPath(System.Environment.SpecialFolder.ProgramFiles) & "\test.pak") フォルダを選択した後、 そのフォルダ内の「test.pak」をコピーして、 プログラムファイルを取得して、取得した先の場所に保存したいのですが、 これをデバッグすると、怒られてしまいます。 "(C:\Program File\test.pak) の一部が見つかりませんでした" という怒られ内容です。 ドコモ間違ってないのに、この様なエラーが出てしまうのですが 何処が悪いのでしょうか？どの様な改善をすれば良いでしょうか？

質問ですが、 'フォルダセット Dim fbd As New FolderBrowserDialog fbd.Description = "フォルダを指定して下さい。" fbd.RootFolder = Environment.SpecialFolder.Desktop fbd.SelectedPath = Environment.SpecialFolder.Desktop 'コピー System.IO.File.Copy(fbd.SelectedPath & "\test.pak", System.Environment.GetFolderPath(System.Environment.SpecialFolder.ProgramFiles) & "\test.pak") フォルダを選択した後、 そのフォルダ内の「test.pak」をコピーして、 プログラムファイルを取得して、取得した先の場所に保存したいのですが、 これをデバッグすると、怒られてしまいます。 "(C:\Program File\test.pak) の一部が見つかりませんでした" という怒られ内容です。 ドコモ間違ってないのに、この様なエラーが出てしまうのですが 何処が悪いのでしょうか？どの様な改善をすれば良いでしょうか？

はじめまして。現在、VB2005で開発しております。 MDIの操作で判らないところがありますので、ご存知の方がいましたら、教えてください。 MDIで開発しております。親フォームで発生したイベント内で子フォームに対してコントロール操作(画面を操作する関数を実行)を行うのですが、画面は全く動作しません。 ※デバックで確認するとコントロール操作しております。 対象の子フォームは必ず表示されていますが、必ずしも最前面にはいません。 今回のように親フォームから子フォームのメソッドを実行する際に動作する方法を教えてください。それとも、操作することは不可なのでしょうか。宜しくお願いします。

現在VB2008でプログラムを組んでいるのですが、(VB初心者です) 現在の壁紙を取得し、そのファイルをコピーしてCドライブ直下に保存する方法がわかりません。 壁紙の取得はできました（sPathにアドレスが出る）　ただそれをコピーできません。 以下のようなエラーが出ます。 パスに無効な文字が含まれています。 ソースコードは以下の通りです。 Dim sPath As New System.String(" ", MAX_PATH + 1) SystemParametersInfo(SPI_GETDESKWALLPAPER, MAX_PATH, sPath, 0) My.Computer.FileSystem.CopyFile(sPath, "C:\Test.bmp", True) 原因不明でよくわかりません。　教えてくださいお願いします。

　WinInet.dll を使って、HTTPS サーバーへデータを POST するプログラムを作っています。開発言語は VB6 です。 　HttpSendRequest で 12029 エラーとなり原因が分かりません。 　HTTP 通信テストツールの RESTTEST を使ったテストでは正常に終了しています（HTTPステータス 200 が返っている）ので、回線やインターネット設定（ファイヤーウォールの問題など）は問題ないと思われます。 　ソースから手続きの部分だけ抜き出して、下記に示します。 　（エラーチェックなどはソース上にはありますが、ここでは省いています） 　手続き上何か抜けが無いかご指摘いただけると助かります。 　　'インターネットサービスをオープンする 　　lngWinINet = InternetOpen(vbNullString, _ 　　　　　　　　　　　　　　　INTERNET_OPEN_TYPE_PRECONFIG, _ 　　　　　　　　　　　　　　　vbNullString, _ 　　　　　　　　　　　　　　　vbNullString, _ 　　　　　　　　　　　　　　　0) 　　'HTTPサーバへ接続 　　lngHttpHnd = InternetConnect(lngWinINet, _ 　　　　　　　　　　　　　　　　 "www.test.jp", _ 　　　　　　　　　　　　　　　　 INTERNET_DEFAULT_HTTPS_PORT, _ 　　　　　　　　　　　　　　　　 vbNullString, _ 　　　　　　　　　　　　　　　　 vbNullString, _ 　　　　　　　　　　　　　　　　 INTERNET_SERVICE_HTTP, _ 　　　　　　　　　　　　　　　　 0, _ 　　　　　　　　　　　　　　　　 0) 　　'リクエストを初期化 　　Dim tmpURL As String * 255 　　Dim lngSecFlag As Long 　　lngSecFlag = INTERNET_FLAG_SECURE Or _ 　　　　　　　　 INTERNET_FLAG_IGNORE_CERT_CN_INVALID Or _ 　　　　　　　　 INTERNET_FLAG_IGNORE_CERT_DATE_INVALID 　　tmpURL = "/testdir/test.php" 　　lngReqHnd = HttpOpenRequest(lngHttpHnd, _ 　　　　　　　　　　　　　　　　"POST", _ 　　　　　　　　　　　　　　　　tmpURL, _ 　　　　　　　　　　　　　　　　"HTTP/1.1", _ 　　　　　　　　　　　　　　　　vbNullString, _ 　　　　　　　　　　　　　　　　0, _ 　　　　　　　　　　　　　　　　INTERNET_FLAG_RELOAD Or lngSecFlag, _ 　　　　　　　　　　　　　　　　0) 　　'リクエストを送信 　　Dim strHeader As String 　　Dim strPostData As String 　　strHeader = "Content-Type: application/x-www-form-urlencoded" 　　strPostData = "TEST1=aaa&TEST2=bbbbb" 　　Call HttpSendRequest(lngReqHnd, _ 　　　　　　　　　　　　 strHeader, _ 　　　　　　　　　　　　 Len(strHeader), _ 　　　　　　　　　　　　 strPostData, _ 　　　　　　　　　　　　 Len(strPostData)) 　手続き部分は、順番も含めて上記の通りです。 　これ以外のことはやっていません。 　これ以外にやっておかなければいけないことや、上記のやり方ではよくない部分などありましたら、ご教授いただけると助かります。 　よろしくお願いします。