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

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
131:デフォルトの名無しさん 05/02/27 00:02:07 >111 つか、これを機会にWSHを身に着けたい、と言うなら、 1日ぐらいは自分で悩んで手を動かしてぐぐってトライアンドエラーを繰り返してみなさい。 それでどうしてもわからなければ聞きに来れば誰か教えてくれるかも知れない。 132:デフォルトの名無しさん 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

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4334日前に更新/212 KB
担当:undef