Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


38583 / 76738 ←次へ | 前へ→

【43288】Re:フォルダを自動で並び替えて整理したい
発言  ハチ  - 06/10/8(日) 8:01 -

引用なし
パスワード
   ▼カド さん:
>▼ハチ さん 回答ありがとうございます。
>>
>>>花 ¥06年10月01日
>>このときに"花"直下にもファイルがあるのでしょうか?
>
>花の直下にはファイルはありません。
>
>****************************************
>
>いつもこんなこと無理だろって思っていることでも、意外とシンプルな
>コードであっさりと解決される方がみえるので、一応質問してみましたが、
>やはりこんなことはそう簡単には出来ないですよね。
>
>自分で地道に考えてみて、その中の部分的に分からないことがあれば、
>またお尋ねしようと思います。

再構成したいフォルダが、2階層だけならそんなに難しくないです。(たぶん)

↓の例SubFolderをScripting.FileSystemObjectのFolderObjectとして
ループをまわすことができます。

  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set 親フォルダ = FSO.GetFolder(パス)
  For Each 子フォルダ In 親フォルダ.SubFolders
    子フォルダ.Name
  Next 子フォルダ

孫フォルダまであるなら、In 子フォルダ.SubFoldersとループを重ねれば良いと思います。
あとは、.Name .Path で作りたいPath名を生成して(子と孫を入れ替えれば良い)
If Dir(新しいパス) = "" Then MkDir(新しいパス)
と新しいフォルダ構成を作っていく。

FolderObjectとして掴んでますので
For Each ファイル In 子フォルダ.Files
 ファイル.Copy 新しいパス & ファイル.Name
Next
とするとファイルをコピーしていけると思います。

こんな感じを想定していたのですがどうでしょうか?
(時間がなくて半端なレスになってスイマセン・・・)

もっと簡単な方法もあるかも・・・
0 hits

【43185】フォルダを自動で並び替えて整理したい カド 06/10/5(木) 8:43 質問
【43193】Re:フォルダを自動で並び替えて整理したい ハチ 06/10/5(木) 14:00 発言
【43259】Re:フォルダを自動で並び替えて整理したい カド 06/10/7(土) 8:58 お礼
【43288】Re:フォルダを自動で並び替えて整理したい ハチ 06/10/8(日) 8:01 発言
【43357】Re:フォルダを自動で並び替えて整理したい ハチ 06/10/11(水) 12:48 発言
【43558】Re:フォルダを自動で並び替えて整理したい カド 06/10/19(木) 11:06 お礼

38583 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free