• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ＶＢＳでテキストファイルを作成に関して質問です）

VBSでテキストファイルを作成に関して

nda23の回答

  • nda23
  • ベストアンサー率54% (777/1415)
回答No.1

以前に回答したnda23です。 以前の回答でP = "C:\"とし、漢字空白を半角空白にすれば動くんです けどね・・・ 何故、Runメソッド＋リダイレクトにしなかったと言うと、失敗する からです。リダイレクトされたファイルが閉じて、ファイルとして 記録される前にShellが終了してしまって、ファイルが残らないから です。

saddiq
質問者

お礼

nda23さん 何度もありがとうです。本当たすかります。 あまりわかってなかったもので、理解も含め、自分なりに書いてみました。 そうなんですね。リダイレクトをすると前のファイルが閉じてしまってエラーが起きるんですね。 ご回答ありがとうございます。 この内容に付加して、テキストを作成する方法を教えてもらえますでしょうか？

この回答がついた質問に戻る
回答 全件
ベストアンサー
Option Explicit Dim WshShell,D,DD,…
>Day,Monthが1ケタだった場合、0を入れるようにしたのかと思い…
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • バッチファイルファイル→VBS→エクセル　マクロを有効にして起動

    Win/XP　エクセル2002使用です。 VBSからエクセルのマクロを有効にして立ち上げたいのですが、 上手くいきません。 バッチファイル側 　cd /D c:\ 　C:\***.vbs 　exit /B VBS側 'エクセル起動 　Set WshShell = CreateObject("WScript.Shell") 　WshShell.CurrentDirectory = "C:\***" 　WshShell.Run "C:\***\***.xls",3 　WScript.Sleep(5000) 　WshShell.SendKeys("E")　'←マクロを有効にする 　WScript.Sleep(5000) 　WshShell.SendKeys("U")　'←データソースへのリンクを更新 エクセル側（マクロ） 　Sub Auto_open() 　 Application.OnTime TimeValue("13:00:00"), "Action" 　End Sub 　Sub Action() 　 　・・・（省略）・・・ 　End Sub ----------------------------- また、エクセルマクロは、VBSではなく手動で立ち上げますと、 問題なく時間になった時（13時）に作動します。 VBSのRunメソッドが、 エクセルマクロの Application.OnTime を待たずに走ってしまうことで、 エクセルマクロが無効になってしまっているのではないか？ もしくは、データ更新のための sendkey("U")によって マクロが無効になってしまっているのはないか？ と思っています。 恐れ入りますが、 よろしくアドバイスの程お願いします。

  • ASPからVBS実行時の権限

    ASPからWscript.Shellを使ってVBSを実行しているのですが、 ASP中のDBオープンには問題はないのですが、test.vbs中でオープンできません LOGファイルは"dbConnection-OK"までになっています。 権限の問題かどうかはわからないのですが、原因は何でしょうか? DBはODBC経由のSQLServerです。 ---------ASP-------------------------------------- <% Dim dbConnection Set dbConnection = CreateObject("ADODB.Connection") dbConnection.Open "testdb" dbConnection.Close Set dbConnection = Nothing '上記OPENに関して問題なし Dim WshShell Set WshShell = CreateObject("Wscript.Shell") WshShell.Run "cscript.exe e:\test.vbs 123", 0, True Set WshShell = Nothing %> <html> <head> <meta http-equiv="Cache-Control" content="no-cache" /> <title>Pipot.to</title> </head> <body> OK </body> </html> ---------test.vbs-------------------------------------- Dim ObjFSO Dim ObjTS Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set ObjTS = ObjFSO.CreateTextFile("e:\log.txt") ObjTS.Write "LOG開始" Dim dbConnection Set dbConnection = CreateObject("ADODB.Connection") ObjTS.Write "dbConnection-OK" dbConnection.Open "testdb" ObjTS.Write "OPEN-OK" dbConnection.Close Set dbConnection = Nothing ObjTS.Close Set ObjTS = Nothing Set ObjFSO = Nothing

  • vbsのショートカット作成で、引数に不具合がでる

    あるプログラムに対し、ショートカットを vbsで作成したいのですが、 リンク先の引数で不具合が発生します。 具体的には KeePassというアプリケーションで、 Database.kdeを開き、パスワードにpassを指定する、というものです。 "C:\...\KeePass.exe" "Database.kdb" -pw:"pass" vbsのソースはこちらです ------------------------------------------------------------ Dim WshShell, fso, ShrCut Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set ShrCut = WshShell.CreateShortcut(WSHShell.CurrentDirectory & "\KeePass.lnk") ShrCut.TargetPath = WSHShell.CurrentDirectory & "\KeePass.exe"" ""Database.kdb"" -pw:""pass" ShrCut.WorkingDirectory = WSHShell.CurrentDirectory ShrCut.IconLocation = WSHShell.CurrentDirectory & "\KeePass.exe" ShrCut.Save ------------------------------------------------------------ ショートカット作成後に実行すると、"passを探しています と表示されますが、 ショートカットのプロパティを開き、リンク先をコピペで更新すると、動作します。 宜しくお願い致します。

  • WindowsXPproのeventquery.vbsで正常に動きません。

    WindowsXPproのeventquery.vbsで時間のフィルタにエラーが出ます。 マイクロソフトが公開しているサンプルをそのままコピーして変更しただけですが正常に動きません。 cscript EVENTQUERY.vbs /l system /FI "Datetime eq 07/05/08,01:10:10AM-07/09/08,04:30:00PM" /FI "Type eq error" 2008/07/05～2007/07/09の間のイベントログを収集したいのですが 一件も引っかかりません。 （イベントログを直接確認したのですがちゃんとエラーのイベントログが 存在しています。） どこが間違ってるのでしょうか？ どなたか指摘よろしくお願い致します。

  • vbsスクリプト作成について

    いつもありがとうございます。 今回、知識がないのですが下記のような処理のVBSを作成したく調べております。 (1)test.vbsファイルを実行時にvbsファイルと同じディレクトリに「folder」フォルダを作成 (2)作成した「folder」フォルダにサービス「idsvc」の状態をテキスト形式で「service.txt」として出力 (3)上記と同様の処理（service.txtはリネームする）を現在ログインしているユーザのスタートアップに「start.vbs」として配置 (3)上記処理後、再起動を実施 (4)再起動後、start.vbsを実行後に自動削除 大きく分けて4つの処理を個別に作成して最終1つのファイルとして作成しようと思っております。 なんとかわからいなりに作成してはいるのですが どうしても下記方法がわかりません。 (2)の処理「folder」を作成後、service.txtのパス（最下位行）を変数に入れて出力する方法 （きたないソースで申し訳ないです） ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ ' フォルダ作成 '---------------------------------------------- Dim str_Path Dim objFdr Set objFdr = CreateObject("Scripting.FileSystemObject") str_Path = objFdr.CreateFolder(".\folder") Dim WshShell Set WshShell = CreateObject("WScript.Shell") Set objLog = WshShell.Exec("cmd /C ""sc query idsvc | findstr -i state > .\folder\service.txt""") ※サービス出力はvbsでの方法がわからなかったのでcmdを呼び出しています。 (4)再起動後の処理にて、再起動前に作成したフォルダに「service.txt」を出力する方法 ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ objVBSFile.WriteLine("On Error Resume Next") objVBSFile.WriteLine("Dim WshShell") objVBSFile.WriteLine("Set WshShell = CreateObject(""WScript.Shell"")") objVBSFile.WriteLine("Set objLog = WshShell.Exec(""cmd /C """sc query idsvc | findstr -i state >C:\services.txt"""")") objVBSFile.WriteLine("Set objFSO = CreateObject(""Scripting.FileSystemObject"")") objVBSFile.WriteLine("objFSO.DeleteFile WScript.ScriptFullName") 他にもわからないことはありますが、調べてなんとかなるとおもっておりますが 上記についてはVBSの理解不足なため、つかめません。 申し訳ありませんが、アドバイス頂けないでしょうか。 以上、宜しくお願い致します。

  • VBSでバッチを実行できません。

    C:\temp\test.batをVBSで実行しようとするのですが、 何度やっても実行されません。 想像ですが、c:\WINNT\System32\cmd.exeが動いている ようなのですが、肝心のC:\temp\test.batが動きません。 以下のように記述しました。 Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run ("cmd /c c:\temp\test,0,True") WIN2K、IE6.0の環境です。 どこか記述に誤りでもあるのでしょうか？ どうぞよろしくお願いいたします。

  • JP1からvbs(PSExec)が起動できない

    突然失礼します。 以下のサーバーAにあるvbsを、JP1から起動しようとしていますが、うまく起動しないので、もし原因が分かる方がいたら、ご教授願いたいです。 起動しようとしているサーバーAの「test.vbs」は、簡単に言うと、PsExecを利用して、サーバーBの「hoge.bat」を実行する内容です。 ***test.vbs*** Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "PsExec.exe サーバーBIPアドレス -u 実行ユーザ -p 実行ユーザーパスワード cmd" WshShell.AppActivate "cmd " WScript.Sleep 3000 WshShell.SendKeys "cd C:\" WshShell.SendKeys "{enter}" WshShell.SendKeys "hoge.bat" WshShell.SendKeys "{enter}" WScript.Sleep 10000 WshShell.AppActivate "cmd" WshShell.SendKeys "exit" WshShell.SendKeys "{enter}" ************************ 上記バッチを手動で実行するとうまくいくのですが、 JP1で起動しようとすると、うまくいきません。 そもそもPsExecが実行出来ていないかも。。。。 宜しくお願いします。

  • ＶＢＳファイルをスタートアップフォルダに入れておいて、

    エクセル2007の特定ファイルをそのＶＢＳファイルにより自動起動させる方法を教えてください。ちなみに、次のようなＶＢＳファイルを作成しましたがエラーとなってしまいます。 Option Explicit 'オブジェクト変数の宣言とWshShellオブジェクトの作成。 Dim objWshShell Set objWshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 1000 '1秒待機 objWshShell.Run "C:￥Program Files￥Microsoft Office￥Office12￥EXCEL.exe" です。

  • VBSのsendkeysで日本語を出力したいです

    WshShell.Run "explorer" WScript.Sleep 100 WshShell.AppActivate "explorer" WScript.Sleep 100 WshShell.SendKeys "C:\Users\Default\" WScript.Sleep 100 WshShell.SendKeys "デスクトップ" WScript.Sleep 100 WshShell.SendKeys "｛ＥＮＴＥＲ｝" WScript.Sleep 100 *.VBS ファイルに書き込んで、直接実行したいのですが、エラーになります。 どんなコマンドを足すといいのですか？

  • EVENTQUERY.VBSでエラー

    現在あるPC（WinXP）から他のPC（WinXP）のイベントビュアのログを テキストファイルなどに保存したいと思っています。 調べたところEVENTQUERY.VBSでそれが出来ることが分かりました、 こんな感じです >cscript eventquery.vbs /R 1000 /L System しかし、Win2000などのPCへはそのコマンドが実行できて正しくロ グが落ちるのですが、相手がWinXPだと エラー： システム名，資格情報および WBEM Coreを確認して下さい >cscript eventquery.vbs /S EtcPC /U EtcUid /P EtcPass /R 1000 /L System というメッセージが表示されコマンドを実行することが出来ません。 ユーザーIDやパスワードはもちろん他のPCにて存在し、現在ログイ ンされているIDを使用しています。 どなたか解決法がありましたらよろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する