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

1 名前：デフォルトの名無しさん mailto:sage [2009/05/24(日) 01:22:48 ] (　´ゝ`)　誰か詳しい情報ｷﾎﾞﾝﾇ ●過去スレ WSH(・∀・)ｽﾚｯﾄﾞ! pc11.2ch.net/test/read.cgi/tech/1055075469/ WSH(・∀・)ｽﾚｯﾄﾞ! Part 2 pc11.2ch.net/test/read.cgi/tech/1176698934/ WSH(・∀・)ｽﾚｯﾄﾞ! Part 3 pc12.2ch.net/test/read.cgi/tech/1208948450/ ●関連スレ お前ら、wsh使ってますか? Part7 pc12.2ch.net/test/read.cgi/win/1190548945/ HTAをもっと流行らせる計画 Part2 pc12.2ch.net/test/read.cgi/tech/1220874815/ ★WSHでCGI★JScriptVBScript pc11.2ch.net/test/read.cgi/php/1059745064/ ●公式サイト Windows Script www.microsoft.com/japan/msdn/scripting/ ●個人サイト Windows Scripting Host homepage3.nifty.com/aya_js/wsh/index.htm Windows Scripting Host Laboratory www.roy.hi-ho.ne.jp/mutaguchi/wsh/ Windows Script Wiki winscript.s41.xrea.com/wiki/index.php 116 名前：デフォルトの名無しさん mailto:sage [2009/09/18(金) 00:42:13 ] >>115 失礼、差込印刷なって使ったことなかったので とすると、これ? doc.MailMerge.ViewMailMergeFieldCodes = false 117 名前：116 mailto:sage [2009/09/18(金) 00:43:29 ] ×差込印刷なって ○差込印刷なんて orz... 118 名前：デフォルトの名無しさん mailto:sage [2009/09/18(金) 00:46:24 ] >>116 調べてみたら、それで間違いないと思います！ 今ちょっとWordが無い環境なんで、改めて試してみます。 ありがとうございました。 119 名前：デフォルトの名無しさん mailto:sage [2009/09/19(土) 01:54:02 ] ABALE.ZIPとかいうCOMが入っているのですが、これって使えるの？ 120 名前：デフォルトの名無しさん [2009/09/24(木) 22:41:49 ] Wordの印刷についてお聞きしたいんですが． Wordを印刷するプログラムを書いたのですが， プリンタを任意に指定する方法がわかりません． 以下のプログラムでは，”通常使うプリンタ”になってしまいます． プリンタを指定する場合はどのようにすればよいのでしょうか？ できれば，引数からプリンタを指定するようにしたいです． よろしくお願いいたします． var pf,obj; var objArgs = WScript.Arguments; pf = new ActiveXObject("Word.Application"); pf.DisplayAlerts = false; obj = pf.Documents.Open(objArgs(0),0,1); obj.PrintOut(); obj.Close(0); WScript.Quit(0); 121 名前：デフォルトの名無しさん mailto:sage [2009/09/24(木) 23:08:20 ] >>120 試してないけど、 pf.ActivePrinter = "プリンタ名" あたり? ちなみに、明らかにword固有の機能はスレ違い VBAスレなどに行ってください 122 名前：デフォルトの名無しさん [2009/09/25(金) 00:41:38 ] >>121 ありがとうございます． その方法で動きました 123 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 00:44:39 ] ちなみに、VBAスレでは、VBやVBSでも書ける話はスレ違いと言われるので、 さらにほかのスレに行ってください 124 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 04:29:36 ] > ちなみに、VBAスレでは、VBやVBSでも書ける話はスレ違いと言われる ハズレ 「VBやVBSでも書ける話」がスレ違いなのではなく 「Word.ApplicationやExcel.Applicationを使わずにVBやVBSでも書ける話」がスレ違いと言われる VBやVBSでも書ける話でも、WordやExcel固有機能の話なら、当然スレ違いじゃない だってVBAのAはWord.[A]pplicationやExcel.[A]pplicationのAなんだから 125 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 14:50:55 ] new ActiveXObject("Shell.Application").ShellExecute(objArgs(0),"プリンタ名",null,"printto"); は、どのスレだろう？ 126 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 17:04:12 ] すいません。質問させてください。 「画面のプロパティ」の内容に当たるレジストリを書き換えるコードを書いています。 が、ログオフか再起動をしないと反映されません。 ログオフ、再起動なしで反映させる方法はありませんか？ 127 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 19:13:20 ] たぶんスレ違いと言われるんじゃまいか 128 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 20:04:19 ] >>126 設定するモノによる 「画面のプロパティ」の画面自体をVBSで操作した方が楽ぢゃねぇ？ 129 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 20:15:00 ] VBSで画面の操作なんかできんのか 130 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 20:38:11 ] sendkeysだろ >>126 inichangeとかsettingchangeとかぐぐれ 131 名前：デフォルトの名無しさん mailto:sage [2009/09/25(金) 20:56:04 ] sendkeysはVBSじゃないけど 132 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 02:07:43 ] ｗ 133 名前：デフォルトの名無しさん mailto:sage [2009/09/26(土) 10:29:44 ] ｗはVBSじゃないけど 134 名前：デフォルトの名無しさん mailto:sage [2009/09/29(火) 15:59:53 ] WScript.Echo "ｗ" はVBSね 135 名前：デフォルトの名無しさん mailto:sage [2009/09/29(火) 18:50:17 ] Is there any here document in WSH? 136 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 23:18:05 ] UserとPasswdを指定してリモートのファイルにアクセスするならMapNetworkDriveが使えるけど ドライブのマッピングをしたくない場合って他に何か方法あるかな？ net useコマンド叩けばいいんだけど、あんまり美しくない。。。 137 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 23:26:31 ] pushdとかは？ 138 名前：デフォルトの名無しさん mailto:sage [2009/10/01(木) 23:28:32 ] FileSystemObject って UNC に対応してなかったけ？ 139 名前：デフォルトの名無しさん mailto:sage [2009/10/02(金) 01:32:32 ] UNCってUser/Pass指定できるんだっけ？ 140 名前：デフォルトの名無しさん mailto:sage [2009/10/02(金) 01:53:29 ] マップしてfsoで開いてアンマップ 141 名前：デフォルトの名無しさん [2009/10/07(水) 12:46:15 ] 指定したパスのフォルダをエクスプローラーで、 サイズや位置を指定して開く方法があったら教えてください。 ぐぐろうとすると InternetExplorerでのやり方ばかりヒットしてしまって・・・ 142 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 13:25:15 ] ' 変数の定義,WSHの準備,etc... Option Explicit Dim FSO,WS,AG,WE,strOs,strInp,strCom,intRet Set FSO=CreateObject("Scripting.FileSystemObject") Set WS=CreateObject("WScript.Shell") Set AG=WScript.Arguments Set WE=WS.Environment("PROCESS") : strOs=WE("OS") ' RunメソッドでEXPLORER.EXEを起動し、引数で指定されたドライブ/フォルダ(省略時は現在のドライブ/フォルダ)をツリー枠と共に表示 strInp="." : If (AG.Count > 0) Then strInp=AG(0) strCom="EXPLORER /e,/root," & Chr(34) & FSO.GetAbsolutePathName(strInp) & Chr(34) intRet=WS.Run(strCom , 1, true) ' WSHのバージョンが5.1以降かつOSがWindowsNT系(NT/2000/XPなど)の場合、処理内容をイベントID:4(情報)でWindowsNTイベントログへ記録 If (WScript.Version > "5.0") And (strOs = "Windows_NT") Then WS.LogEvent 4, "(bvExplorer.vbs) 次のコマンドラインを実行しました。" & vbCrLf & strCom End If ' 各オブジェクトのメモリ リソース等を開放し、本スクリプト実行を終了 Set FSO=Nothing : Set WS=Nothing : Set AG=Nothing : Set WE=Nothing WScript.Quit() 143 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:30:11 ] Set ie=GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") ie.Visible=True ie.Top= ie.Width= ... 144 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 13:05:03 ] FSOその他でシンボリックリンクの判定できる？ ターゲット取り出せる？ 145 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 19:10:05 ] ExecuteExcel4Macro("CALL(""user32"",""FindWindowExA"", はよくあるが、 ExecuteExcel4Macro("CALL(""user32"",""FindWindowExW"", はできないのか？ 146 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 22:54:27 ] >>144 シンボリックリンクなら。ジャンクションはこれでは無理。たぶんWMIでいけるんじゃないか。 動かしたのは Win7RC なので、XP では無理。Vista はどうかわからん。 Set shell = CreateObject ("Shell.Application") Set fso = CreateObject("Scripting.FileSystemObject") Set folder = shell.Namespace("C:\temp") For Each fname in folder.Items filePath = folder.GetDetailsOf(fname, 179) fileAttr = folder.GetDetailsOf(fname, 6) isFolder = InStr(1,fileAttr,"D",1) isLink = InStr(1,fileAttr,"L",1) If isFolder = 1 Then Set fEntry = fso.GetFolder(filePath) Else Set fEntry = fso.GetFile(filePath) End If If isLink <> 0 Then Wscript.echo filePath & " is linking to " & _ folder.GetDetailsOf(fname, 188) End If Next 147 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 22:57:38 ] ごみが残ってた。これいらん。 ' If isFolder = 1 Then ' Set fEntry = fso.GetFolder(filePath) ' Else ' Set fEntry = fso.GetFile(filePath) ' End If 148 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 14:48:07 ] おー、さんきゅう ただし、Vistaでは属性に、Lが付かんね リンク先はあるので、ショートカットでなければで区別するかな 149 名前：デフォルトの名無しさん mailto:sage [2009/10/10(土) 17:33:03 ] そうなんだ。それじゃ >>147 の fEntry で fEntry.Attributes AND 1024 を調べてみ。 150 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 16:10:12 ] 分類に「リンク」があるかでも区別できるかも folder.GetDetailsOf(fname, 188) Vistaで187　 ExtendedPropertyのほうがよいが、IDが不明 GetDetailsOfとExtendedPropertyの対応表か調べる方法があればよいが 151 名前：デフォルトの名無しさん mailto:sage [2009/10/11(日) 20:57:35 ] あった System.Link.TargetParsingPath ms-help://MS.MSDNQTR.v90.ja/shellcc/platform/shell/reference/properties/link/system_link_targetparsingpath.htm 152 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 21:37:40 ] すみません detail.chiebukuro.yahoo.co.jp/qa/question_detail.php?qid=1131686451 この答えを教えていただけないでしょうか よろしくお願いします 153 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 22:32:38 ] >>152 取得順はソートされない（詳細はFATやNTFSの構造の話になるので省略する） 取得したデータを自前でソートしろ 154 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 22:50:19 ] >>152 自前ソートが面倒であれば以下のとちらかで手抜きしろ ・ソート指定したdirコマンドの結果を使う ・basp21のReadDirを利用する 155 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 23:01:18 ] >>153-154 ソートするには取得してからでないとダメということですね ありがとうございます 取得するフォルダの順番というものは決まっているのでしょうか？ 対象のフォルダに 20090101 20090102 20090201 20090202 とこのような感じでサブフォルダがありまして フォルダが読み込まれる順番を調べているのですが どうも情報がうまくさがせないものでして echoなどで出しておりますとおそらく昇順だとは思うのですが 明示的にできないか・もしくは昇順であることを裏付ける何かがないかと思いまして 156 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 23:12:55 ] ループの処理のあとにsleep10000くらい入れて 処理フォルダ見とけばいいんじゃない？ 157 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 23:19:53 ] >>155 FATに関して言えば情報格納順であり ファイルやフォルダ削除／作成により順番が変わる NTFSについても確実に名称でソートされている訳ではない 環境依存にしたくなければソートしろ 158 名前：デフォルトの名無しさん mailto:sage [2009/10/12(月) 23:24:42 ] >>156-157 ありがとうございます 複雑な内部の問題なんですね… ソートしてから使いチアと思います。 本当に助かりました 159 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 00:12:04 ] 横レスですが、 みなさんソートはどうしてますか？ バブルソートが楽ですけど、量が増えると遅くて重くて。 エクスプローラがどんなに大量のファイルがあっても一瞬でソートできるように、 何か便利な方法ないでしょうか？ 160 名前：159 mailto:sage [2009/10/13(火) 00:16:54 ] すんません、>>154で出てた・・・ 161 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 15:32:29 ] JSciptのArray.sort()でええ 162 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 15:41:58 ] CreateObject("System.Collections.SortedList") 163 名前：デフォルトの名無しさん mailto:sage [2009/10/14(水) 18:16:19 ] >>21-25 keybd_eventでシフトキー押しながら invokeverb "delete" すればよいよ 164 名前：デフォルトの名無しさん mailto:sage [2009/11/08(日) 21:10:28 ] 質問です vbsで特定ページのソースを取得し、Ｘ行目がＹという内容と一致するかのチェックをするスクリプトを作りたいのですが ソース全体を出力する方法はobjIE.Document.Body.InnerHtmlでできるのは分かったんですが ソース全体の閲覧ではなくソースのＸ行目がＹという文字列と一致するかどうかの分岐を作るのはどうすればいいのでしょうか？ 165 名前：デフォルトの名無しさん mailto:sage [2009/11/08(日) 21:42:02 ] >>164 ネタ？　どこまで理解できていないのか読み取れない・・・ InStr系関数で改行コードをカウントしてＸ行目の開始/終了位置を取得 Mid系関数でＸ行目のデータを取得 If文で分岐 当然ループは使うぞ 166 名前：デフォルトの名無しさん mailto:sage [2009/11/08(日) 23:00:09 ] >>165 分かりにくくてすみません >InStr系関数で改行コードをカウントしてＸ行目の開始/終了位置を取得 >Mid系関数でＸ行目のデータを取得 ここが分かりませんでした もう少し調べてみます 167 名前：デフォルトの名無しさん mailto:sage [2009/11/08(日) 23:58:40 ] 俺ならXMLDOMで全体取ってから \nでsplitするかな。 168 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 01:21:37 ] StrBody = objIE.Document.Body.InnerHTML lntPos = InStr(1, StrBody, Chr(13), 1) これの戻り値がどうやっても0になってしまいます 対処法お願いします 169 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 15:46:51 ] Chr(13)？ 170 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 15:54:55 ] >>169 段落コードのつもりなんですが 171 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 16:38:05 ] Chr(10) 172 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 17:26:14 ] 段落コード？ 173 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 17:33:14 ] HTMLにおける「段落」をめぐって ttp://www.asahi-net.or.jp/~WQ6K-YN/para.html 174 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 18:32:24 ] ソース？ 175 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 19:13:38 ] >>170 ＨＴＭＬの段落はそっちでしたか InStrが返す値が明らかに存在する文字を検索しても0になってしまうのはStrBodyが長すぎるせいなのでしょうか？ 長さ制限は無いはずだしStrBodyをためしにechoで出力してみたらちゃんと表示されてるのでStringは収納されてるはずなんですが >>167 ちょっとこちらも調べて見ます 176 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 21:58:26 ] ＞長すぎるせいなのでしょうか？ それはない ＞InStrが返す値が明らかに存在する文字を検索しても0になってしまう それもない 177 名前：デフォルトの名無しさん mailto:sage [2009/11/09(月) 23:21:28 ] >>176 無いはずなのは分かってるんですけどなぜかそうなってしまうんです ためしにVBで>>168のIntPosをMsgBoxで出力しようとしてもなぜか0に 178 名前：デフォルトの名無しさん mailto:sage [2009/11/10(火) 01:02:57 ] すみません IntPos =　の部分がうまく変数として認識されていなかったのが問題だった見たいです 解決しました 179 名前：デフォルトの名無しさん mailto:sage [2009/11/10(火) 17:02:37 ] 意味不明だが on error resume next でも使ってんのか？やめとけ option explicit は使っとけ 180 名前：デフォルトの名無しさん mailto:sage [2009/11/16(月) 22:17:29 ] ttp://d.hatena.ne.jp/hasegawayosuke/20091028/p1 181 名前：デフォルトの名無しさん mailto:sage [2009/11/17(火) 15:03:31 ] いみふ 結局使えないんだろ？ 182 名前：デフォルトの名無しさん mailto:sage [2009/11/18(水) 20:01:43 ] 以前は cscript //e:jscript - が使えたが 183 名前：デフォルトの名無しさん mailto:sage [2009/11/18(水) 22:00:30 ] ？ >cscript //e:jscript - WScript.Echo(WScript.Version); ^Z 5.7 184 名前：デフォルトの名無しさん mailto:sage [2009/11/22(日) 15:42:09 ] >cscript //e:jscript - 入力エラー: スクリプト ファイル "-" が見つかりません。 185 名前：デフォルトの名無しさん mailto:sage [2009/11/25(水) 02:05:32 ] >cscript //e:jscript con WScript.Echo(WScript.Version); ^Z 5.7 186 名前：デフォルトの名無しさん mailto:sage [2009/11/26(木) 12:03:39 ] レンホウ「こんなロボット作って、なんになるんです？」 187 名前：デフォルトの名無しさん mailto:sage [2009/11/26(木) 18:04:00 ] ロボットになるんです 188 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 17:39:05 ] >cscript //e:jscript con CScript エラー: Windows Script Host の実行に失敗しました。 (この操作を完了するの に十分な記憶域がありません。 ) 189 名前：デフォルトの名無しさん mailto:sage [2009/11/28(土) 19:47:24 ] 純粋なあの頃は仕事で追い詰められて自殺なんて都市伝説だと思ってたけど 今じゃ知り合いの失踪も自殺も体験した 190 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 10:59:46 ] 正規表現が文法的に正しいかどうかを判別する方法はありませんか 括弧が足りないとか教えてくれなくていい スクリプトが異常終了しないでtrueかfalseを返してくれればいい 191 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 18:48:37 ] try catch 192 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 19:26:27 ] >>191 駄目だった try {var re = /asd(fgh/;} catch(e){WScript.echo("error");} 193 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 19:36:59 ] RegExp.compile 194 名前：デフォルトの名無しさん mailto:sage [2009/12/02(水) 19:58:42 ] >>192 RegExp 195 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 00:05:02 ] wshで var n=/a]b/; と打ったらエラーが出ませんでした。他の括弧ならエラーが出ます。 エスケープ無しの右かぎ括弧ってなにか特別な意味はありますか？ この場合は、"a]bと続く三文字"と解釈して大丈夫なんですか？ 196 名前：デフォルトの名無しさん mailto:sage [2009/12/05(土) 14:20:01 ] ためせば？ 197 名前：デフォルトの名無しさん [2009/12/13(日) 13:23:44 ] Excel2003と2010が共存している環境で WSHを使うことで両者を使い分けようとしています。 参考 : www.drk7.jp/MT/archives/001226.html RegRead("HKEY_CLASSES_ROOT\\CLSID\\{00024500-0000-0000-C000-000000000046}\\LocalServer32\\").replace(/ \/[^ \/]+/g, '') で、Excel 最新版（最後にインストールしたもの？）のパスは得られるのですが、古い方のパスを得られません。 何か良い方法はないでしょうか？ 198 名前：デフォルトの名無しさん mailto:sage [2009/12/13(日) 13:24:56 ] 今は決めうちで、「C:\Program Files\Microsoft Office\*\EXCEL.EXE」の * の部分を変えて存在確認をとって処理しています。 * の部分は、 Office2010 : office14 Office2007 : office12 Office2003 : office11 Office2002 : office10 Office2000 : office9 Office97 : office8 Office95 : office であっているでしょうか？ よろしくお願いします。 199 名前：デフォルトの名無しさん mailto:sage [2009/12/13(日) 19:27:38 ] ttp://support.microsoft.com/kb/234788/ja 200 名前：デフォルトの名無しさん mailto:sage [2009/12/15(火) 18:19:27 ] EXCEL.EXEを検索してFileVersionで判定すべき 201 名前：デフォルトの名無しさん mailto:sage [2009/12/23(水) 00:00:12 ] Office2010ってもう発売されてるんだ..... 202 名前：デフォルトの名無しさん [2009/12/23(水) 14:44:53 ] さあ 203 名前：デフォルトの名無しさん mailto:sage [2009/12/23(水) 14:50:06 ] office13は？ 204 名前：デフォルトの名無しさん mailto:sage [2009/12/24(木) 09:35:19 ] スレちがい 205 名前：デフォルトの名無しさん [2010/01/13(水) 18:31:33 ] お願いだから教えてください。スレ違いかも知れないけどPower Shellスレないみたいだし・・ Windows Power Shell(2.0)でIEを起動してマウスクリックをエミュレートさせようとした場合、Win32API(mouse_event)を使うと思うんですが DllImport("usr32.dll",Charset=Charset.Auto)でCharset = ←の=の後がどうとかいって、実行できません。Charsetのくだりを全削除すると今度は予期しない属性と出てしまいます。 mouse_eventにこだわりはないんですが IEを立ち上げ マウスクリックをエミュレートする 処理を教えてください。APIなら宣言部もお願い；； 206 名前：デフォルトの名無しさん [2010/01/13(水) 18:37:51 ] 205ですけど 座標とかハードコーディングで大丈夫ですので肝を簡潔にお願い；； 207 名前：デフォルトの名無しさん mailto:sage [2010/01/13(水) 23:40:26 ] スレちがい Windows PowerShell 2.0 Part2 208 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 00:07:23 ] 普通はDOM使うんじゃなかろうか、いや知らんけど 209 名前：デフォルトの名無しさん mailto:sage [2010/01/14(木) 02:56:55 BE:1403990069-PLT(23400)] >>207 URLも貼ってあげなよ pc12.2ch.net/test/read.cgi/win/1261106064/ 210 名前：デフォルトの名無しさん [2010/02/22(月) 21:41:34 ] 次のように Folderオブジェクトの SubFolders でFolderコレクションを取得したとして、 　Set c = folder.SubFolders これを For Each ではなくて以下のように For で処理したいです。 　For i = 0 To c.Count 　　: 　Next このループの中で、i 番目のアイテムを取得するにはどうしたらよいでしょうか？ c(i) でも c.Item(i) でもダメでした。 211 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 21:44:18 ] c.Items(i) 212 名前：210 mailto:sage [2010/02/22(月) 21:50:27 ] それだと オブジェクトでサポートされていないプロパティまたはメソッドです。:'c.Items' です。 ちなみに、c.Item("Test") みたいに、実在するフォルダ名を与えればフォルダオブジェクトは取って来れます。 それじゃ意味無いですが。 213 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 22:06:18 ] c(i).Value c(i).Item() 214 名前：210 mailto:sage [2010/02/22(月) 22:17:28 ] >>213 プロシージャの呼び出し、または引数が不正です。 215 名前：デフォルトの名無しさん mailto:sage [2010/02/22(月) 23:29:43 ] Shell.Application の FolderItems のほうを使ったら？ 216 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 21:55:47 ] 配列に入れて使え 217 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 22:13:00 ] For i = 0 To c.Count j=0 　For Each f In c If j=i Then Exit For j=j+1 　Next MsgBox f Next 218 名前：デフォルトの名無しさん mailto:sage [2010/02/25(木) 22:55:24 ] 番号は使えないみたいだな ItemクリックしたらDictionaryに飛んだ ttp://msdn.microsoft.com/en-us/library/9kcx47hd%28VS.85%29.aspx 219 名前：デフォルトの名無しさん mailto:sage [2010/03/01(月) 21:36:27 ] test 220 名前：デフォルトの名無しさん [2010/03/05(金) 12:44:09 ] WMI使ってリモートPCのIP変更したいんだが、変更後にRPCエラー待ちが発生して自動処理が難しい。 エラー待ちを無視するとか、なんかいい方法知ってる人がいたら助けて。 On Error Resume Next strComputer = "10.1.1.1" Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetAdapters = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each objNetAdapter in colNetAdapters errEnable = objNetAdapter.EnableDHCP() Next

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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