WSH(・∀・)ｽﾚｯﾄﾞ! ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
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:デフォルトの名無しさん 05/02/26 22:57:43 >>125 「自分で入力するのが面倒。マウスだけで入力したい。」という君に http://www.vector.co.jp/soft/winnt/util/se083048.html 「これも面倒。自動で、C:\COPYフォルダ作り」という君に http://www.vector.co.jp/soft/win95/util/se241498.html 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 実行時エラー となってしまいます。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4334日前に更新/212 KB
担当:undef