WSH(・∀・)ｽﾚｯﾄﾞ!

1 名前：デフォルトの名無しさん [03/06/08 21:31] (　´ゝ`)　無ので立ててみた。 誰か詳しい情報ｷﾎﾞﾝﾇ 98 名前：デフォルトの名無しさん mailto:sage [04/11/18 02:34:30] >>97 WMI を使う。 www.microsoft.com/japan/technet/scriptcenter/process/scrpcs07.mspx 99 名前：97 mailto:sage [04/11/20 01:43:21] >>98 有難う！　と言いたいのですが、WSHでないのが残念！ です。 100 名前：デフォルトの名無しさん mailto:sage [04/11/20 03:18:16] そいつは残念だ。 101 名前：デフォルトの名無しさん [04/11/22 15:07:28] 102 名前：デフォルトの名無しさん [04/12/27 21:23:04] 　 103 名前：デフォルトの名無しさん [05/01/12 07:48:35] msgbox("新年あけましておめでとうございます") 104 名前：デフォルトの名無しさん mailto:sage [05/01/12 17:42:38] 質問ｽﾏｿ。WSHでIEオブジェクトを扱った時、ページ内のJavaScript Functionって 呼べないのかな・・ 105 名前：デフォルトの名無しさん mailto:sage [05/01/12 23:23:14] IEオブジェクトはWindows 2000である条件のもとだと使えネェな。 といってもその条件が特殊だからあんま意味ないか。 106 名前：デフォルトの名無しさん mailto:sage [05/01/12 23:37:41] >>104 ページ内のスクリプト各関数は 大抵ボタンやリンクのonClickなんかに関連づけられてるから そのイベントをfireEventするってのは？ 107 名前：デフォルトの名無しさん [05/01/21 00:49:26 ] すみません、全くの初心者なんですが、Wordのマクロから、 別のところに保存してある.vbsファイルを実行したいのです。 （要はWordで今選択している単語を、 コピーして別のアプリのウインドウに貼付けしたい） Wordのマクロでとりあえず Selection.Copy でコピーはできたのですが、その後、 （１）別のアプリの起動 （２）そのアプリへの貼付け がどうやるかわかりません。 どなたかどうぞよろしくお願いします。 108 名前：デフォルトの名無しさん mailto:sage [05/01/21 00:57:43 ] shell sendkey 109 名前：デフォルトの名無しさん mailto:sage [05/01/21 00:58:57 ] >107 WScript.Run Sendkey 110 名前：デフォルトの名無しさん mailto:sage [05/01/21 01:15:59 ] WSHがマルチスレッドに対応！ かと思って ぅぉ っと声を上げてクリックしてしもたorz 111 名前：デフォルトの名無しさん [05/02/25 06:44:32 ] society3.2ch.net/test/read.cgi/hosp/1103732549/14- このスレッドの１４番、１５番は、 www.roy.hi-ho.ne.jp/mutaguchi/wsh/wshtop.htm ここで、公開されているスクリプトです。 このスクリプトを変形して、 フォルダ内(１層でいい)のファイル名＋サイズをテキストに書き出したいです。 ツリー構造はいりません。 私は、シェルうんぬんでわけがわからなくなりました。 虫のいい話ですが、どなたかお助け下さい。 112 名前：デフォルトの名無しさん mailto:sage [05/02/25 07:05:15 ] >111 ややこしいと思うならshellを使わずにD&Dのみで作ればいいんじゃない？ ツリー構造いらないならそんなに難しいものでもないが。 113 名前：１１１ [05/02/25 07:18:11 ] >>112 これを機会にWSHを身に着けたいんです。 114 名前：デフォルトの名無しさん mailto:sage [05/02/25 07:27:01 ] |д・）つC:\>tree TARGET_DIR /a /f > OUT_FILE 115 名前：１１１ [05/02/25 08:00:18 ] どうも有り難うございます。　>>114 つーか、私が最終的にやりたい事は、 ターゲットのフォルダに、 なっち.jpg 2.100 KB あやや.mp3 45.777KB つんく.txt 300KB 　‥‥ とあったら、別のフォルダに、 なっち.jpg 2.100 あやや.mp3 45.777 つんく.txt 300 　‥‥ とゆう名の0KBのテキストファイルを作りたいんです。 これを１発でやるには、WSHが最適だと思うのですが、どうでしょう？ 116 名前：デフォルトの名無しさん mailto:sage [05/02/25 10:02:49 ] >>115 そうですね。そう思います。 117 名前：114 mailto:sage [05/02/25 10:07:24 ] ちゃんと読んでなかった。流して。 そんなに難しいことじゃないので、そのうち自己解決するでしょう。 あと、どこがわからないのかを書くといいと思う。 118 名前：１１１ [05/02/25 10:08:13 ] www.roy.hi-ho.ne.jp/mutaguchi/wsh/refer/lesson9.htm Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") これは、１行目でWSHShellの変数の宣言をしてから、セットしてるのに、 society3.2ch.net/test/read.cgi/hosp/1103732549/14- Dim sLine,sRootDir,sOutFile Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set Shell = WScript.CreateObject("Shell.Application") これは、Fs、Shellを変数の宣言をしないでセットしてるのが疑問です。 119 名前：１１１ [05/02/25 11:08:25 ] society3.2ch.net/test/read.cgi/hosp/1103732549/14- Search oRootDir.Items.Item 'oRootDir.Self 'Win2000の場合 'はレム文の始まりだと思うけど、何で１行に２つあるのか、わかりません。 120 名前：１１１ [05/02/25 11:24:41 ] つーか、大昔にクイックCをちょこっとだけ、かじった事があるんですが、 始めから、 WScript.Echo "終了" ここまでが、メイン関数 Sub Search(obj) ここから最後までが、呼ばれる関数ですよね？ で、 Search oRootDir.Items.Item 'oRootDir.Self 'Win2000の場合 ってことは、Win2000以外の場合は、Search(obj)を使わない、って事ですか？ 121 名前：デフォルトの名無しさん mailto:sage [05/02/25 12:36:50 ] >>118 BASICは変数宣言しなくてもいいのです。 >>119-200 Win2000の場合は Search oRootDir.Self にしろって意味です。 122 名前：４０１ [05/02/25 23:26:19 ] >>121 そうですか、レス有り難うございます。 society3.2ch.net/test/read.cgi/hosp/1103732549/14- つーか、誰かこのスクリプトを削って、 フォルダ内(１層でいい)のファイル名＋サイズをテキストに書き出すのみのスクリプトを書いてくれないかな？ 複雑すぎてわかりません。 123 名前：デフォルトの名無しさん mailto:sage [05/02/26 00:02:25 ] >>122 Set fso = CreateObject("Scripting.FileSystemObject") Set src = fso.GetFolder(InputBox("コピー元フォルダ")) Set dest = fso.GetFolder(InputBox("コピー先フォルダ")) For Each f In src.Files Set ts = dest.CreateTextFile(f.Name & " " & f.Size, False) ts.Close Next 124 名前：１１１ [05/02/26 01:49:25 ] >>123 うわあー、すばらしい、有難うございます。　感謝感謝です。 これで、HDDの整理に取り掛かれます。　感激です。 125 名前：１１１ [05/02/26 22:00:52 ] すみません、更なるお願いです。 >Set src = fso.GetFolder(InputBox("コピー元フォルダ")) コピー元フォルダを自分で入力するのが面倒。マウスだけで入力したい。 >Set dest = fso.GetFolder(InputBox("コピー先フォルダ")) これも面倒。自動で、C:\COPYフォルダ作りそこに入れて欲しい。 あと、ターゲットのフォルダに、 なっち.jpg 2.100 KB あやや.mp3 45.777KB つんく.txt 300KB 　‥‥ とあったら、別のフォルダに、 なっち 2.100 あやや 45.777 つんく 300 　‥‥ と、元のファイルの拡張子は省略して欲しい。 どうでしょうか？ 126 名前：デフォルトの名無しさん mailto:sage [05/02/26 22:57:43 ] >>125 「自分で入力するのが面倒。マウスだけで入力したい。」という君に www.vector.co.jp/soft/winnt/util/se083048.html 「これも面倒。自動で、C:\COPYフォルダ作り」という君に www.vector.co.jp/soft/win95/util/se241498.html 127 名前：１１１ [05/02/26 23:09:58 ] www.roy.hi-ho.ne.jp/mutaguchi/wsh/object/shell.htm Set Shell=Wscript.CreateObject("Shell.Application") Set f=Shell.BrowseForFolder(0,"フォルダを選んでください") MsgBox f.Items.Item.Path '選択したフォルダ名を表示 これを試してみると、２行目、文字１で、引数の数が一致していません。または不正なプロパティをしていしています。 'Shell.BrowseForFolder' 　コード、800A01C2　ソース、VBScript 実行時エラー となってしまいます。 128 名前：１１１ [05/02/26 23:11:45 ] WSHで、お願いします。　>>126 129 名前：１１１ [05/02/26 23:21:27 ] つか、>>127は解決しました。２行目が間違いでした。 Set f=Shell.BrowseForFolder(0,"フォルダを選んでください",0) 引き続き、>>125をお願いします。 130 名前：１１１ [05/02/26 23:50:16 ] >>123さんのソースをいじって、 Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set Shell=Wscript.CreateObject("Shell.Application") Set MOTOf=Shell.BrowseForFolder(0,"コピー元フォルダを選んでください",0) Set dest = fso.GetFolder(InputBox("コピー先フォルダ")) For Each f In MOTOf.Files Set ts = dest.CreateTextFile(f.Name & " " & f.Size, False) ts.Close Next とやってみました。コピー先フォルダの入力までは出来るんですが、 それ以後、エラーが出ます。 行５、文字１、オブジェクトでサポートされていないプロパティまたはめそっどです。 'MOTOf.Files'　コード、800A01B6　ソース、VBScript 実行時エラー となってしまいます。 131 名前：デフォルトの名無しさん mailto:sage [05/02/27 00:02:07 ] >111 つか、これを機会にWSHを身に着けたい、と言うなら、 1日ぐらいは自分で悩んで手を動かしてぐぐってトライアンドエラーを繰り返してみなさい。 それでどうしてもわからなければ聞きに来れば誰か教えてくれるかも知れない。 132 名前：デフォルトの名無しさん mailto:sage [05/02/27 00:04:24 ] copyFolder = "C:\COPY" Set objShell = CreateObject("Shell.Application") Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(copyFolder) Then fso.CreateFolder(copyFolder) End If Set objFolder = objShell.BrowseForFolder( 0, "フォルダ選択", 0 ) If objFolder is nothing Then WScript.Quit End If Set file = fso.CreateTextFile( copyFolder & "\FILES.TXT", True ) Set objFolderItems = objFolder.Items For Each f In objFolderItems If Not f.IsFolder Then file.WriteLine( f.Name & vbTab & f.Size ) bname = fso.GetBaseName(f.Path) name = copyFolder & "\" & bname & " " & f.Size fso.CopyFile f.Path, name fso.DeleteFile(f.Path) End If Next 133 名前：１１１ [05/02/27 00:11:18 ] >>132 おお、有難うございます。ちゃんと動きました。　感謝します。 134 名前：デフォルトの名無しさん mailto:sage [05/02/27 00:53:13 ] >>111 ・・・勉強しろよ 135 名前：１１１ [05/02/27 02:02:36 ] >>134 へぇ、勉強します。　つか、なんで>>130がエラーになるのか説明出来ますか？ 136 名前：デフォルトの名無しさん mailto:sage [05/02/27 02:23:55 ] >135 ぐぐってる？ BrowseForFolderで取得できるFolderオブジェクトと FileSystemObjectのFolderオブジェクトとは別のものだから。 BrowseForFolderのFolderオブジェクトにはFilesコレクションがない。 137 名前：デフォルトの名無しさん mailto:sage [05/02/27 03:00:10 ] ここは111様にみんなで貢献するスレッドです。 勉強しろとかぐだぐだ言わずに、111様がお聞きになられたことに素早く答えましょう。 138 名前：１１１ [05/02/27 03:54:04 ] >>136 要するに、２つの系列の異なるオブジェクト間でのデータのやり取りが出来ない、ってことですか？ だから、>>132のプログラムは 苦肉の策として、テキストファイルにデータを書き出し、それを再読してる、と。 これってビジュアルベーシックの仕様ですか？ 139 名前：１１１ [05/02/27 04:00:31 ] とはゆうものの、>>123さんと>>132さんには非常に感謝してます。 140 名前：デフォルトの名無しさん mailto:sage [05/02/27 04:17:52 ] >138 違う。 Shell.ApplicationとScripting.FileSystemObjectにはたまたま同じ「Folder」という 名前のオブジェクトがあってよく似た構造をしてるけど、実際には全く違うもの。 だから当然使い方も違う。 BrowseForFolderのFolderオブジェクトはFilesというプロパティはない。 BrowseForFolderのFolderオブジェクトからはItemsというコレクションで取得して FileかFolderかを判別する必要があるの。 FileSystemObjectから取得したFolderオブジェクトであれば>130でOKだった。 141 名前：デフォルトの名無しさん mailto:sage [05/02/27 10:20:02 ] >>111 (ry 142 名前：デフォルトの名無しさん mailto:sage [05/02/27 12:54:11 ] >>111 早く死ねよお前 143 名前：デフォルトの名無しさん mailto:sage [05/03/01 06:12:31 ] WSHか… 仕事中にコソーリ、トランプゲーム組む時に使う程度かな 一見エディタ開いてコード書いてるわけだが、 んなことしてるなんざ、周りに言えないな…ｗ 144 名前：１１１ [05/03/02 11:56:42 ] >>132 つか、これ俺の希望とは違うわ。 ターゲットのフォルダに、 なっち.jpg 2.100 KB あやや.mp3 45.777KB つんく.txt 300KB 　‥‥ とあったら、別のフォルダに、 なっち 2.100 あやや 45.777 つんく 300 　‥‥ と、拡張子のない、0BYTEのテキストファイルを作って欲しい あと、元ファイルは消さない です。 145 名前：デフォルトの名無しさん mailto:sage [05/03/02 12:07:36 ] >>144 あなたの主張は理解できました。 がんばってくださいね 146 名前：デフォルトの名無しさん mailto:sage [05/03/02 13:33:44 ] @echo off for %%I in (%1\*.*) do type nul>"%2\%%~nI %%~zI" 147 名前：デフォルトの名無しさん mailto:sage [05/03/02 19:38:35 ] ここは111様にみんなで貢献するスレッドです。 勉強しろとかぐだぐだ言わずに、111様がお聞きになられたことに素早く答えましょう。 148 名前：デフォルトの名無しさん mailto:sage [05/03/02 23:27:09 ] 132は111が戻ってこれないよう元ファイルだけじゃなくて 全てのファイルを消すようにしておきゃよかったのに。 149 名前：デフォルトの名無しさん mailto:sage [05/03/03 01:26:38 ] どっかに「リクに答えてスクリプトを作るスレ」って無かったっけ？ 150 名前：デフォルトの名無しさん mailto:sage [05/03/03 02:22:33 ] ソフト板にあったような。スクリプト限定じゃないけど 151 名前：デフォルトの名無しさん mailto:sage [05/03/03 02:51:37 ] 「こんな」でスレ検索するとごろごろ引っかかるな。 152 名前：デフォルトの名無しさん mailto:sage [05/03/03 04:52:36 ] pc5.2ch.net/test/read.cgi/tech/1086143976/ pc5.2ch.net/test/read.cgi/tech/1046576456/ 153 名前：デフォルトの名無しさん mailto:sage [05/03/05 06:11:22 ] すみません。Irvineスレで聞くべきなんですが、全く、反応が無いんです。 IrvineのRegistDateやSuccessDateのフォーマットって何なのかご存知の方、いらっしゃいますでしょうか？ 154 名前：デフォルトの名無しさん mailto:sage [05/03/11 03:28:55 ] ここ何のスレだっけ？ 155 名前：デフォルトの名無しさん mailto:sage [05/03/11 07:33:15 ] ソフト起動は以下のコマンドでやっているのですが。 ソフトを終了させるのは、どのように記述すればいいのでしょうか。 set ws = CreateObject("WScript.Shell") ws.Run "　　　" 初歩的な質問で恐縮なんですが、よろしくお願いします。 156 名前：デフォルトの名無しさん mailto:sage [05/03/11 07:44:47 ] >155 終了を待つことはできるけど、終了させることはできない。 SendkeysでALT+F4とか。 157 名前：デフォルトの名無しさん mailto:sage [05/03/11 08:12:13 ] RunでなくてExec使えば？ Terminateあるよ。 158 名前：デフォルトの名無しさん mailto:sage [05/03/11 10:34:44 ] >>156 >>157 ありがとうございます。それでやってみます。 159 名前：デフォルトの名無しさん mailto:sage [05/03/12 03:31:39 ] IISでCGIの処理にWSHを使おうと思っているのですが、 スクリプトは正常に動いているのにURLから実行すると CGI Error The specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did return are: CScript エラー: 設定の読み込みに失敗しました。 (アクセスが拒否されました。 ) というエラーが出てきてしまいます。 IIS側の設定でスクリプトマッピングは 拡張子 .XXX 実行ファイルのパス C:\winnt\system32\cscript.exe //nologo %s みたいにしているのですが・・・ 160 名前：デフォルトの名無しさん mailto:sage [05/03/12 07:04:38 ] IUSR_XXXX IWAM_XXXX をAdministratorsに汁 ttp://www.users.gr.jp/ml/archive/viewer.aspx?name=asp&no=18872 ttp://www.roy.hi-ho.ne.jp/mutaguchi/bbs/list68.shtml 161 名前：153 mailto:sage [05/03/12 09:20:14 ] >154 どうもすみません。それでは質問を少し変えさせていただきます。 RegistDateというのは、ダウンロードの開始日時を表すdouble値なのですが、例えば、 38387.3075909722 というのが、Irvineの画面では 2005/02/04 07:22:55 と表示されています。 38394.2332972222 の場合が 2005/02/11 05:35:56 と表示されます。 おそらく、いつか特定の年月日からの経過秒数とかそういう値だと思うのですが、longでなくdoubleだというのが私には謎です。 日時を扱ったことのあるプログラマの方々、double形式が出てくることに何か心当たりはないでしょうか・・・？ 162 名前：デフォルトの名無しさん mailto:sage [05/03/12 09:34:35 ] (02/11 05:35) - (02/04 07:22) = 6日と22時間 (38394.23329) - (38387.30759) = 6.927 163 名前：デフォルトの名無しさん mailto:sage [05/03/12 09:45:56 ] >161 date型は内部的にはdouble型で扱ってる。 dbldate=38387.3075909722 call msgbox(CDate(dbldate)) 164 名前：デフォルトの名無しさん mailto:sage [05/03/12 22:41:56 ] >>162-163 「何でdoubleを使ってるのか？」 という質問の答えになっていないと思う。 165 名前：デフォルトの名無しさん mailto:sage [05/03/13 01:00:37 ] >>164 long だと 2038年1月18日までしか数えられないから。 こんなカンジの答えを希望？ 166 名前：161 mailto:sage [05/03/13 06:08:57 ] CDate()で変換できるのですか！ うーん、奇妙！ ビット数の関係でdoubleなのでは、とは思っていましたが・・・ WSH(VBScript?)のdoubleって何バイトでしたっけ？ どうもありがとうございました。 167 名前：デフォルトの名無しさん mailto:sage [05/03/13 10:28:55 ] >166 64bit 168 名前：デフォルトの名無しさん mailto:sage [05/03/13 18:28:40 ] >>166 8バイト 169 名前：デフォルトの名無しさん [05/03/16 05:41:48 ] 自分で作ったアプリを WSH で制御しようとおもったら， あらかじめ決められたインターフェイスを持った COM オブジェクトにしないとダメってことですか？ ってことは， C# で作っているアプリを WSH で制御できるようにするのは難しい？ 170 名前：デフォルトの名無しさん [05/03/16 05:55:19 ] HWNDを元に考えられる限りの窓遠隔操作機能を持ったCOMを誰か作ってくれないかな。 171 名前：デフォルトの名無しさん mailto:sage [05/03/17 09:34:26 ] DynaCall 172 名前：デフォルトの名無しさん mailto:sage [05/03/20 05:27:53 ] 私、VBSしかわからないんですが、DateオブジェクトってどうしてJSでしか使えないんですか？ 173 名前：デフォルトの名無しさん mailto:sage [05/03/20 10:38:22 ] >>172 使えますよ。 <job> <script language="JScript"> dt = new Date(); </script> <script language="VBScript"> MsgBox dt.toUTCString() </script> </job> 174 名前：デフォルトの名無しさん mailto:sage [05/03/20 16:02:18 ] >>43 XULのこと？HTAとは激しく別物かと思いますよ HTAは通常のDHTMLを使ったWebページと同じくscriptタグ中に埋め込まれた JScriptやVBSを呼び出すことで動作を表現する。 XULはそれ自体がXML準拠の構文でプログラムの動作を記述したもので Mozillaのコアエンジンを通して実行される と解釈してるが 175 名前：デフォルトの名無しさん mailto:sage [2005/03/26(土) 14:25:44 ] >>173 同じ例に汁。 176 名前：デフォルトの名無しさん mailto:sage [2005/04/03(日) 14:18:22 ] >>173 1年前の書き込みにレスしてどうする 177 名前：デフォルトの名無しさん mailto:sage [2005/04/03(日) 14:19:04 ] アンカーミス>>733→>>734 178 名前：デフォルトの名無しさん mailto:sage [2005/04/03(日) 23:39:59 ] >177 いつへのアンカーなんだよｗ 179 名前：デフォルトの名無しさん mailto:sage [2005/04/04(月) 08:56:57 ] このペースだと6年後くらいだな。 180 名前：176 mailto:sage [2005/04/04(月) 17:04:29 ] はずぃ>自分 181 名前：デフォルトの名無しさん [2005/04/05(火) 23:58:34 ] 取得した文字列の中身が全部 US ASCIIかどうかチェックしたいのですが、何かいい方法ないでしょうか？ CだとIsAscii()があるのですがWSHだとないので。。。。 182 名前：デフォルトの名無しさん mailto:sage [2005/04/06(水) 13:13:55 ] >>181 アルファベットまたは数字、いくつかの記号 にマッチするか調べればいいんじゃない？ 183 名前：デフォルトの名無しさん [2005/04/07(木) 01:05:54 ] 181だけど事故解決しました 面倒くさがらずに自分で作らないとだめだね CHRつかうのとREGEXP使うのとどっちがパフォーマンスいいのかなあ どぴゅ 184 名前：デフォルトの名無しさん [2005/04/09(土) 00:02:19 ]  ( ﾟдﾟ)ノ　ハイ！質問です！ msgbox 2^64 を実行すると 1.84467440737096E+19 と表示されます。 １５桁を超えるものは指数を使って表示されるようですが、整数で表示する事は出来ますか？ 185 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 00:45:39 ] 文字列に変換 186 名前：184 [2005/04/09(土) 00:50:30 ] >>185 文字列に変換は、Cstr() ですか？ Cstrは試して見ましたが、表示に変化はありませんでした。 それとも他の方法でしょうか？ 187 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 01:43:09 ] 多倍長整数使えよ 188 名前：デフォルトの名無しさん mailto:sage [2005/04/09(土) 11:05:17 ] 変換したら加工せにゃ 189 名前：デフォルトの名無しさん [2005/04/16(土) 15:48:13 ] 質問です。 あるﾌｫﾙﾀﾞ２つのファイルを比較します。 ２つのﾌｫﾙﾀﾞの拡張子は例としてtxtとvbsです。 拡張子がちがう同じファイル名のファイルの 最終更新日時を比較します。ファイル名は大量の為特定できません。 比較してvbsのほうが日付が古ければ ｴﾗｰとしてﾃｷｽﾄファイルに書き出す という、vbsを作りたいのですがどなたかわかりますか？ 190 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 16:23:36 ] >189 １．フォルダAとフォルダBがある。 　　（フォルダAには拡張子vbsのファイルが、フォルダBには拡張子txtのファイルが入っている） ２．フォルダAからファイルをひとつ取り出す ３．フォルダBから拡張子を除いた部分の名前が同じファイルを探す ４．フォルダAとフォルダBのファイルの更新日時を比較して、 　　フォルダAのファイルが古ければテキストファイルにエラーを出力。 ５．フォルダAのファイルが無くなるまで２〜４を繰り返す こういうフローでいいならできる。 191 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 17:52:35 ] >>190 できたら作ってくれませんか？m(__)m 192 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 17:56:50 ] >>191 逝ってよし。 193 名前：デフォルトの名無しさん mailto:sage [2005/04/16(土) 21:48:46 ] 　　　　　　　　　　　 _,ノ‐''''''^^^¨¨¨⌒￣⌒^^''¬-､,_ 　　　　　　　　._v-''¨｀　　 .,,vｰ─-､　　　 .,,vｰ─-､ .¨'ｰu_ 　　　　　　_ノ'″　　 　　./′　　　 ¨┐ .／　　　　 ﾞ┐　 .ﾞ'┐ 　　　　 ,／′　　　　　 ./￣''''-¬,,,,__.ﾐ .i |,,,,＿＿_　..）　　　ﾞ＼ 　　　 ,/′　　　　 λ 　|　　　　 （ ･ )|　｝　.¨'ｰu,,　　|　　　　　＼ 　　 ./′　　 　　　八,､-ﾐ.ノ‐''''''^^￣./¨ﾚ　　　 　　 .人,_　　　　　ミ 　 .,ﾉ′　　　 　._ノＵ'　　 ＼_　　 ._,rlﾄ冖へy　　　_／　 ¨'‐u　　　.ﾞlr 　.,i′　　　　　／ｰ-v､.,,_　　 ¨^^¨´〔　　　 〕.¨^^¨′　　__.,､ ﾞ＼.　 ｛ 　〕　　　　　 ./′　　　　.⌒'''''　　　 ＼,,,,,,ノ′　 v-ｰ'''¨　.λ　　ﾞ┐ ｝　　　　＿＿＿＿＿＿＿＿＿＿ 　|　　　　　 ﾉ　 .λ───ｰ　　　　　　｝　　　　　 __,,.,､v;（_）ｰ''　 ｛..］　　／ 　|　　　　　:|　　 | |　　　　　　　　　　　　.!　　　　　 ｀　　　 　　　　 .｝｝ ＜　きがるにいってくれるなあ。 　｝　　　　 .|　　 .Ｕ-:;:冖^￣　　　　　　 .|　　　　　 ¨¨¨¨¨￣¨¨′ ﾐ｝　　＼ 　.|　 　　　.｝　　　　　　　_,,,,,ｖｖl''''¨¨|^^⌒|¨¨''''lｖｖ,_　　　　　　　　 ｝　　　　￣￣￣￣￣￣￣￣￣￣ 　 ).　.　　　〕　　　 ,,､-v~|　　 .|　　　|　　 |　 　|''Ｔ＾i-,,_　　　　　　/ 　 .｛　 　　　). ., r'z::''''~ﾞ(~~￣￣￣￣￣￣~~~`^^^^''''¬;;;＿　　 ﾉ 　　 ﾐ.　　　 `i,　　　　　　 　　　　　　　　　　　　　　　　　 ,　`''　/ 　　　ﾞ).　　　 `i,　　　　　　 　 　　　　　　　　　　　　　　 　　　.,ﾉ　　λ 　　　　＼　　　 },　　　　　′　　　　　　　　　　　　　　　.　　／　　　| | 　　　　 .　＼　　＼　　 　　　　　　　　　　　　　　　　.　　,／　　　　 ∪ 　　　　　　 （¨¨¨¨¨¨¨¨¨¨¨¨¨¨ﾞソ冖干ｱ^^^^^^^^^^^^^ｒ'′ 　　　 　　／~~~~~~~~i¬冖'''''7′　　　∨¬ｰｰz─-―「＼ 　　　　　/　　　　　_ﾉ　　　　　厂¨丁¨¨ﾌ　　　　.ﾐ､　　　　ﾞ＼ 194 名前：デフォルトの名無しさん mailto:sage [2005/04/17(日) 16:22:30 ] 質問です。 XPを使っているのですが、デスクトップからスタンバイに移行するのに Dim objShell Set objShell = WScript.CreateObject("Shell.Application") objShell.Suspend というコードを使えばできると書いてあったんですが、 スタンバイに移行できません。 このコードはXPでは使えないのでしょうか? 195 名前：デフォルトの名無しさん mailto:sage [2005/04/18(月) 02:05:49 ] >>191 せっかくアルゴリズムまでは教えてくれてるんだからヘルプファイル読みながらでも 自分で作んなさいよ 196 名前：191 mailto:sage [2005/04/20(水) 11:13:48 ] 行き詰まってつい・・・・。でも、なんとかできました。 190さん、ありがとう。 197 名前：191 mailto:sage [2005/04/21(木) 06:45:27 ] できたのですが、ファイルがたくさんある場合に今どれくらい 進んでいるのか進捗状況を表示させられたらいいと思っているのですが、 今何％進んでいるか(プログレスバー？)を表示させるには どうすればいいですか？検索とかしてるんですが、みつかりません。 無理なんでしょうか？ 198 名前：デフォルトの名無しさん mailto:sage [2005/04/21(木) 07:12:56 ] >>197 プログレスバーは無理な希ガス cscriptから起動させて、文字列出力させたら？

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef