WSH(・∀・)ｽﾚｯﾄﾞ! ..
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
592:デフォルトの名無しさん 06/06/17 19:28:36 FAT32なのかもしれん 593:デフォルトの名無しさん 06/06/17 19:33:13 Win2000をサービスパックとか何も入れずに使っているのですが、 何やらXPだとかサービスパックだとかの場合、ADODBが殺されて使えない、 というような話を聞いたのですが本当なのでしょうか？ ADODBを使ったスクリプトを他人のコンピュータ(特にXP)でも動作させたいのですが、どういう状況なのか教えてくださいませ。 594:デフォルトの名無しさん 06/06/17 19:42:58 「Win2000をサービスパックとか何も入れずに」 しね 595:デフォルトの名無しさん 06/06/17 23:17:29 Dim SettingFile1 Set SettingFile1 = 〜 Dim SettingFile2 Set SettingFile2 = 〜 みたいなのを動的に増やしていきたいのですが、 どうすればいいのでしょうか？ 596:デフォルトの名無しさん 06/06/17 23:24:41 配列にする 597:589 06/06/18 04:42:54 >>591 Bフォルダの容量が大きいので、移動は避けたかったんですよ。 で、教えて頂いた通りにやってみるとできました！ objStartFolder = ShowSubfolders objFSO.GetFolder(objStartFolder) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders Set objFolder = objFSO.GetFolder(Subfolder.Path) ShowSubFolders Subfolder If not objFolder = objStartFolder & "Bフォルダ" Then objFSO.DeleteFolder(objFolder),true End If Next End Sub
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4335日前に更新/212 KB
担当:undef