- ベストアンサー
VBScriptで入力
VBScriptでダブルクリックした際に引数としてGUIでファイルパスを指定して 渡したいのですが、InputBoxでは1つしか渡せません。 複数パスをGUIで入力して渡すにはどうすればよいのでしょうか？ またそのとき参照ボタンを押下してフルパスをテキストボックスに 入力させるにはどうすればよいのでしょうか？ 簡単なサンプルソースを記述していただけると助かります。
- Shu-shin
- お礼率18% (9/48)
- Visual Basic
- 回答数2
- ありがとう数0
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
その他の回答 (1)
>複数パスをGUIで入力して渡すにはどうすればよいのでしょうか？ InputBoxを複数回使うのはどうです。 あと参考になるか分かりませんが、 http://homepage3.nifty.com/aya_js/wsh/wsh16.htm
関連するQ&A
- ファイルパスの取得について
input type=fileを使ってファイルパスを取得し、そのパスをinput type=textの入力欄に表示させたいです。 ファイルの操作はしません。パスを取りたいだけです。 以下のようなことをやりたいです。 ・参照ボタンでファイルパスを取得 ・JSで（？）参照のボックスに値が入ったのを見てその値をtext欄にコピー ・text欄は手入力もしたいです ・text欄に値が入っていて参照で取得した場合は上書き ・参照ボックスは見た目上text欄で隠したいです（参照ボタンはtext欄の右にあるように） JS側とhtml側の記述方法を教えてほしいです。 よろしくおねがいします。
- 締切済み
- JavaScript
- HTML内に組み込んだVBScriptでExcelの値を取得したい
ローカルドライブに C:\Book1.xls があります。 VBScriptで下記の記述をして、拡張子.vbsで保存し、そのファイルをダブルクリックすると、メッセージボックスにC:\Book1.xls のシート「管理」のセルA1の値を表示することができます。 Set objExcel = WScript.GetObject("C:\Book1.xls") WScript.Echo objExcel.Sheets("管理").Cells(1,1) これと同じようなことをHTML内に埋め込んだVBScriptでやりたいと考えています。 C:\Book1.xls のシート「管理」のセルA1に入力されている値を取得して、document.write を使って書き出したいと考えています。 出来れば、ネットワーク上のパスに置かれたExcelファイルに対しても同様のことをしたいと考えています。 サンプルコードなどをご教授願えないでしょうか？
- 締切済み
- Visual Basic
- vbsでフォームに値を入力できない
下記のコードによりファイルパスを入力したいのですが、思ったとおりに動いてくれません（環境はwindowsXP、IE6） set IE=WScript.CreateObject("InternetExplorer.Application") IE.Navigate("http://～"） IE.Visible=true IE.document.form(0).file.value="c:\etc.csv" 値を入力しようとしているテキストボックスは、 ファイルパスを入力するテキストボックスで、「ファイルを 選択する」ダイアログボックスを起動するボタンが付属していますが、 パスを直接入力することも可能です。 「IE.document.form(0).file.focus」では問題ないのですが、 「IE.document.form(0).file.value="c:\etc.csv"」ではテキストボックスに値が入力されません。つたない説明で恐縮ですが、解決への ヒントをご教示頂ければ幸いです。よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBScriptでノートパッド起動
HTMLのボタン押下イベントで、VBScriptの関数を呼んで その中でノートパッドを開いてます。 VBScriptの関数は、 <Script language = "VBScript"> Sub showReport(FILEPATH) Dim intRtn Dim objShell Set objShell = CreateObject("WScript.Shell") intRtn = objShell.Run("notepad " & FILEPATH, 1, True) Set objShell = Nothing EndSub </Script> です。 ファイルのフルパスを引数で渡して、ノートパッドから開いてます。 この処理を行うと、起動して最初の1回だけ 「このページのActiveXコントロールは、安全ではない可能性があり、ページのほかの部分に影響する可能性があります。ほかの部分に影響しても問題ありませんか？」 というダイアログが表示されてしまいます。 一度「はい」を選択すると、ウィンドウを閉じるまでは出なくなりますが、 また起動した場合はダイアログが表示されます。 このダイアログを表示しない方法を教えていただけますでしょうか？ プログラムの記述が悪いのでしょうか？ IE6のSP1です。 よろしくお願いします。
- ベストアンサー
- JavaScript
- IllustratorCS3でのJavascriptを使ったＧＵＩコントロールについて
IllustratorCS３でJavascriptを使ったGUIコントロールの使い方について質問です。 Javascriptで以下のようにテキストボックスの横に参照ボタンを置き、ボタンをクリックすると「ファイル選択」ダイアログを表示し、そこで選択したファイルのパスをテキストボックスに表示したいと思っています。 以下のようなソースを作成しました。 winObj = new Window("dialog","テキスト変換ツール",[100,50,330,200]); sbtnObj=winObj.add("button",[180,20,220,40],"参照"); ftxtObj=winObj.add("edittext",[10,10,180,40],"ファイル名を入力してください。"); sbtnObj.onClick=function(){ ffilename=File.openDialog("テキストファイルを指定してください。"); if(ffilename){ ftxtObj.text=ffilename; } } これですと、参照ボタンをクリックしてファイルを選択すると、テキストボックス(ftxtObj.text)に「File」と表示されてしまいます。ここには選択したファイルのパスを表示したいのですが、どなたかご存知の方がいらっしゃいましたらよろしくお願いします。
- 締切済み
- JavaScript
- VBScriptでフォルダ参照ダイアログを表示したい
HTMLファイルの中にVBScriptを記述しています。 内容はボタンが押されたら、フォルダ参照のダイアログ ボックスを表示したいのです。 開発環境は windows2000 IE6.02 スクリプトのところは以下のように記述しています。 Function Getfolder() Set Shell = CreateObject("Shell.Application") Set objFolder = Shell.BrowseForFolder(0, "フォルダを選択してね！", 1) if objFolder is Nothing then Msgbox("フォルダを選択してください") else Msgbox(objFolder.Items.Item.Path) end if End Function で、Set objFolder = Shell.BrowseForFolder(0, "フォルダを選択してね！", 1) のところで「書き込みできません」のエラーが表示されてしまいます。 どのようにすればフォルダ参照のダイアログボックスを表示できるのでしょうか？
- ベストアンサー
- その他（プログラミング・開発）
- 半角カナだけが入力できる<input type="text">は可能？
半角カナだけ入力できるテキストボックスは 作成可能でしょうか？ Vbscript だけを使って実現したいと思います。
- ベストアンサー
- Microsoft ASP
- 「FileUploadコントロール」手入力不可にしたい。
初めての質問です。 わからないことが多くて不愉快に感じさせる質問になってしまったら申しわけありません。 .NET ASPの「FileUploadコントロール」という参照ボタン付きのテキストのようなコントロールがありますが、 こちらを「手入力不可」とし、必ず参照ボタンから(ファイルパス)を入力しなければならないようにしたいのですが、 「FileUploadコントロール」の参照ボタンは生かしたまま、テキスト入力部分だけを手入力不可(ロック状態)にすることは可能でしょうか？ すみませんが、 どなたかご助言お願いいたします。
- ベストアンサー
- Microsoft ASP
- テキストボックスが未入力のときメッセージを表示したい
テキストボックスが未入力のときコマンドボタンを押下したらメッセージを表示させるようにしたいんですができません。 教えてください。 (1)テキストボックスを作成。（txt_入力） (2)コマンドボタンを作成。 下記のようにコードを記述。 Private Sub コマンド45_Click() On Error GoTo Err_コマンド45_Click If Me![txt_入力] = "" Then MsgBox "データをいれろ" End If 以下省略 ""をNULLにしても出来ません。お願いします。
- ベストアンサー
- Visual Basic
- テキストボックス入力後、警告メッセージを表示し、フォーカスを移動させない方法について
テキストボックスの入力チェックを行うために下記のようなソースを記述しました。 下記を実行するとテキストボックスにどんな文字を入力してもメッセージボックスを表示し、 フォーカスが移動しない形となっております (厳密にはボタンにフォーカスが移動した後、テキストボックスにフォーカスを移動しています)。 これは Me.テキストボックス.SetFocus のみを記述した所、次の場所にフォーカスが移動してしまい、 下記のように書くとフォーカスが移動していないように見えるため、このようにしました。 ただこの記述はいささか強引な感じなので、これを改良したいと思っております。 2回フォーカスを移動させるのではなく、フォーカス移動を抑止する方法がベストと思いますが、 方法が分からなかったので、何かしらアドバイスをいただけれる方がいらっしゃいましたらよろしくお願いします。 【ソース】 Private Sub テキストボックス_AfterUpdate() MsgBox "エラー" Me.ボタン.SetFocus Me.テキストボックス.SetFocus End Sub 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
