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

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

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

127:１１１
 05/02/26 23:09:58 
http://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 実行時エラー  
となってしまいます。

次ページ