[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 2chのread.cgiへ]
Update time : 06/22 18:33 / Filesize : 201 KB / Number-of Response : 717
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

VBAなんでも質問スレ



449 名前:デフォルトの名無しさん mailto:sage [2013/10/01(火) 16:51:48.60 ]
>>436
擬似コードだとこんな感じ。再帰使えそう。

sub foo()
 folders = get_all_folders(path)
 folders.sort

 ' 最初のフォルダの最終番号を取得する
 last_file_name = get_last_file_name(folders(i))
 last_number = parse_file_name(last_file_name)
 ' 次のフォルダの開始番号を計算する
first_number = last_number + 1

 ' 二個目以降のフォルダ内のファイルを全てリネーム
 for i = 1 to folders.size - 2
 first_number = rename_files(folders(i + 1), first_number)
 next
end sub

function rename_files(folder, first_number) as string
files = get_all_files_of_folder(folder)
files.sort

 current_number = first_number

 for i = 0 to files.size - 1
  rename files(i), build_file_name(current_number)
  current_number = current_number + 1
 next

 rename_files = current_number
end sub






[ 続きを読む ] / [ 携帯版 ]

全部読む 前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<201KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef