• 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31

【VBA】ファイル整理用マクロ(日付毎にフォルダ作成してコピーするだけ)

深緑の女魔術師です。

スロット系の画像を整理しててめんどくさい・・・

ってことで、この手の作業はマクロ等にやってもらうのが楽ですね。
VBSでも良かったのですが、使い慣れてるVBAで急きょ作成。

@仕様
・サブフォルダは読まないこととする
・振り分けフォルダ名は「YYYYMMDD」とする
・日付は作成日とする(撮影日にしたいけど、難しいらしい)
・ってか画像問わず全ファイル読んでるので、そもそもその仕様は無理なわけで・・・
・危険が伴うので、とりあえずコピーだけ

※大してデバッグしてないので、自己責任でお使いくださいませ。
※また、ファイルが消えたりするかもしれないので、バックアップを取ってから行うと良いかもしれない

@ソース

Sub ファイル整理くん

''変数
Dim strDir As String
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim wDate As Date
Dim objFile As Object
Dim wDir As String

''フォルダ取得
''サンプルなので、適当に指定してます。(指定は各自お好きな方法で・・・)
strDir = Cells(1, 1).Value

''フォルダ存在チェック
If Dir(strDir, vbDirectory) = "" Or strDir = "" Then
MsgBox ("フォルダ・・・おかしくないですか??")
Exit Sub
End If

''ファイルを全部読む
For Each objFile In objFSO.GetFolder(strDir).Files

''日付取得
wDate = objFile.DateCreated

''日付フォルダの有無
''日付ディレクトリの設定
''作業フォルダ + YYYYMMDD
wDir = strDir & "\" & Format(wDate, "YYYYMMDD")
If Dir(wDir, vbDirectory) = "" Then
''ないので作成
MkDir wDir
End If

''移動(コピー)
objFSO.CopyFile (objFile.Path), (wDir & "\" & objFile.Name), True

Next objFile

''初期化
Set objFSO = Nothing

End Sub



思った以上に、簡単なソースになりました。

改良するとすれば、拡張子指定をしたいですね。

以上

web拍手 by FC2

押下してくださると、大変うれしいです!
にほんブログ村 ゲームブログ ぷよぷよ・ぷよぷよクエストへ にほんブログ村 スロットブログへ
スポンサーサイト


web拍手 by FC2
拍手うれしいです・・・

ブログランキング・にほんブログ村へ

応援もうれしいです・・・
かうんたー
れきしとすうち
たぐいちらん

深緑の女魔術師初打ち世界樹の迷宮ぷよぷよNETアトラス世界樹の迷宮5サミーオリンピアフェーリ天鳳世界樹の迷宮4ぷよぷよ7JavaScriptブログKPEカルドセプトオーイズミSANKYOセガカルドセプトリボルト作ってみた大宮ソフトダウンロード版新世界樹の迷宮2大都技研プレイ日記マジカルハロウィン実践凪のあすから山佐ぷよぷよクロニクルDAXELメーシー麻雀魔法少女まどか★マギカスロアプリ旧イベWi-fiゾロ目祭WindowsPhoneアクロス蒼穹のファフナーぷよぷよ20th快勝ボス怪盗天使ツインエンジェル3DS小説北電子ぷよぷよシミュレータ中段チェリー新緑の女魔術師戦国乙女ぷよの日設定判別ツール真・女神転生IV-FINALメガテンガストD-light終日実践岡崎産業攻殻機動隊セブンスドラゴンⅢマウスコンピュータTAKASAGOSurfacePro4新・ロロナのアトリエ誕生日Bisty秘宝伝目標フリーズだいへんしんMicrosoft化物語ひぐらしのなく頃に煌藤商事ハロウィーンぷよぷよテトリスサウンドトラックにほんブログ村茉莉花の剣TAIYO記念日ユニバーサルブロス天井2017年MADOSMAQ501エレコ2016年SANYO偽物語沖スロプリズムナナ戦国乙女2新台スロット体験版エンターライズレビューハヤカワ文庫スーパーブラックジャック2スロ記念日パイオニア勝ち勝ちくんガールズ&パンツァーRioデビルサバイバー2コンパイル一撃ASUS七匠タイヨーエレックゴッドイーターウィッチZippoハウンドVBAスクウェアAI芝村裕吏FonepadNote6世界樹と不思議のダンジョンスカイガールズファイナルファンタジーJPSプリシラと魔法の本魔法少女霊冥なる原初の主終日ストライクウィッチーズ機種紹介アンデッドキングエニックス戦国コレクション2DSiウェア風邪プリズムナナエースAndoroidマジカルハロウィン5PSVita記念記事ジャッカスチームスカイガールズ~ゼロ、ふたたび~レア台ユニバーサルA-SLOTインフィニット・ストラトス喰霊零特化ゾーン花火クレアの秘宝伝2タイヨーバジリスク絆設定6前田ゆきえオーバーロード打ち納め萌えよ剣バジリスク3SNKプレイモアウィッチマスターにょきにょきマジカルハロウィン2アクセスアップヱヴァンゲリヲン魔法少女まどか★マギカ2シェゾFlash卓上カレンダー怪盗天使ツインエンジェル3DS探偵歌劇ミルキィホームズActionScriptスロ雑誌Excel連鎖倍率スパイキードラコひぐらしのなく頃に絆MADOSMA十字架3機動警察パトレイバーソニー残飯処理ハーレムエース2秘宝伝伝説への道2015年ポッキーの日楽園の導き手SONYマジカルハロウィン4高機動幻想ガンパレード・マーチ緋弾のアリアヴァイスシュヴァルツTCG手帳キーボードニューギンエンジェルラッシュトリビースナイパイ72麻雀物語クレアの秘宝伝エスバットハルピュイア決意の刻PSVITAぷよぷよグッズRAVEエヴァンゲリオン月華の剣士HTMLスーパーファミコン大連鎖アルルDSiWiiポケモン愛本みずほ1周年ワールドカップブラックラグーン2コンプガイドリオスパF07-C富士通オヤシロチャレンジファイナルファンタジー5アクセス数戦国乙女西国参戦編ファミスタナムコ開封の儀クイーンズブレイド2闘ゼロノツバサミリオンゴッド神々の凱旋キャラクタ―スリーブミリオンゴッドサイレントメビウスヤーマTRADアプリエンディング収支シンデレラブレイド2スキル検証保護フィルム七夕スロマガユニバカドリスタコクッチーブラックコナミスターツ出版ニューチバリヨBLOOD+2事故翠星のガルガンディア記事数魔法少女プリシラZゴールド・インフィニティファンキージャグラーロデオ真モグモグ風林火山2天井狙いなでしこ翠翼の呪皇Windows10Mobileゾーン狙い予約投稿乱嵐エイサープリティ戦記神々の凱旋悪魔城ドラキュラダークアルルテンプレートハイライツコロンバスサークルフェストゥムラッシュ大量乗せデンケン販売ウィッチクラフトワークスハナビメタルマックス4一確チャンスワイヤレスキーボードベルコグッズ萌えの日豚インフルエンザ神たまバビロン設定6ゾロ目WPS懐スロファミスタリターンズナイトオブマハラジャ地獄少女更新率マジハロARTサントラ元祖ハネスロ再びファミコンzippo麻雀物語3ネットブック機動戦艦ナデシコ超大連鎖ヱヴァンゲリヲン希望の槍ブログテンプレートベヨネッタうみねこに鳴く頃にほぼ日カレンダー蒼穹のファフナ―イニシエダンジョンああっ女神さまっホムラミズチWi-Fi中継器ヨーゲル怪盗天使ツインエンジェル2ラフィーナパワプロ2016銀河機攻隊マジェスティックプリンスライターThinkPadリリカルなのはロンソン一騎当千VVシュタインズ・ゲート流星群天体観測魔法少女まどか☆マギカVBADーLightGTSマジカルハロウィン3懐かしい台ひぐらしのなく頃に海物語3DS享楽トータルイクリプス買ってみたCSSSEGA宇宙戦艦ヤマト2199マクロスフロンティアコクッチマスターズ魔法少女リリカルなのはムック本まじかるすいーつプリズムナナあんどうりんごカルドセプトセカンドバーチャルコンソールシャーマンまつりばエマヒポグリフ打ち始めミズホアナザーゴッドハーデスぷよグッズミラクルペルソナQ鉄拳3エンジェルverジャックポット南国物語パイ遊記二つ名FOEぷよぷよ25thサタン様連鎖ボイスりんご秋刀魚パチンコファイナルファンタジー6キリ番ゲームパッドGRANTONマタドール2リデルアイドルマスタージャグラーQ601Bluetooth大敗パーティエキサイトガラスフィルム1G連サムライスピリッツ百花繚乱サムライガールズ沖ドキまとめ記事DLCイベントイベント日エウレカセブンAOハイサイ蝶特急忍魂学園黙示録ブラウザ続回胴のジャンゴスターオーシャン貞子3Dウルトラマンウォーズロードオブヴァーミリオンクランキーセレブレーションバイオハザード5絶対衝激ニューキングハナハナスナイパイメタルギアソリッドもっと!沖縄フェスティバルハッピージャグラー創聖のアクエリオン鬼浜水晶竜スキュレー図柄筐体鬼の城ジャックポットトロピカルバージョン2北斗の拳修羅の国篇ハーレムエーステラシグマスーパープラネットDX次回予告聖チェリーヌ学院世界樹と不思議なダンジョン決戦の刻深緑のクイーンジャックネオオリックスバッファローズドラゴンギャルロストプラネット2ニューパルサーデラックス未来予想図極楽モード戦律のストラトス創立記念日戦姫絶唱シンフォギアDOAささみさんがんばらないすろっとコルモ大量上乗せ1G連ゼットマンLG創星のアクエリオン2天空のシンフォニア魔法少女マギカ☆まどかスマフォアプリデッドオアアライブ5ATOK一騎当千オリンピックデッドオアアライブポンタ娘娘娘牙狼守りし者海物語IN沖縄2ジャガーノートグリモアマラソンスロット年鑑バッドマンビタ押しメルモ世界樹の迷宮5ひぐらしに鳴く頃に煌G1優駿倶楽部テンパイラッシュテイルズオブデスティニージョーズメルマガシンデレラブレイド2サザンアイズスーパージャックポットハーピーソウルキャリバー黄門ちゃまアップグレードASUS】FonepadNote6オアシスデイズシーマスターあやしいクルークDARKER-THAN-BLACKフォレストセル天下不武3牙狼木星10周年UFOキャッチャーシミュレータすーぱーぷよぷよロリポップチェーンソーGTR山形酒田CGIPerlK20Dヘルファイアー涼宮ハルヒの憂鬱文字検索全消しフィーバー地震津波ハザードマップP2PP2P地震情報プレイ時間ICレコーダー不毛地帯魔道物語Laputa神たなFC2ブログ役満国士無双サンマ勝利への願い豊丸タグナナシーブログパーツMIDImp3ホームページ緒方孝市カープシステム屋プログラマーキャラグミン高砂スーパービンゴリゾート犬夜叉トリプルクラウンGNoName海の日初音ミクセブンバードラゴンクエスト清老頭ラフィソル学研連敗脱出はこパラ!マー娘カップドラクエニューペガサスRとつげき東北近代麻雀アシスタント倒産シェイク3イルカモンスターハンター月下雷鳴デバッグバグちびぷよアリィ麻雀格闘倶楽部2ネトマ近代麻雀オンラインバトルオンバト戸田恵梨香DSステーション7月30日ニュースモモチャン清瀧ゲームジャパンコンビニはこパラLYNXジブリ借りぐらしのアリエッティSH-10Bスマートフォン藤間千歳試打トップをねらえL-04Cコード・ルージュプリンセスATOMN450魔魚ナルメル新世紀エヴァンゲリオンオーストラリアコードルージュクラビノーバスワロウテイル人工少女販売処薄桜鬼すれ違い通信マナフィバタフリー設定1ピンポンHAI-SAI蝶特急絶対衝激2WaterFoxソウルシルバー鶴田謙二レムレス好きな台NETブロガーブリードカードホワイトブラックポケットモンスターLenovoああっと極大日ふたご座流星群チキンレースにょきシミュレータ部分日食格闘美神ウーロンしぶんぎ座流星群あけましておめでとうございます型抜きヒッパルコスJavaSriptWiki四暗刻単騎タクシー小林めぐみ国立天文台火曜サスペンス劇場ともだちコードC#デグレード浜松WiiMSXうなぎウナギおそ松さんうなぎパイメガドライブPCエンジン2コン実績お勉強マジカルハロウィンRN64スーファミ魔界ハイサイ超特急法条遥演出まとめネットワークモンスターハンター狂竜戦線りんごちゃんG-TUNE揺籃の守護者キバガミ様苦戦めぞん一刻デッドマンワンダーランド秘宝伝TheLast山の日キキーモラカボリプ魔法少女アイシクルフロストハイスクールD×D公式サイトめぞん一刻桜の下でヱヴァンゲリヲン魂を繋ぐものプロフィールマウスへの挑戦ロングフリーズ初勝利microSDXC64GB卑弥呼戦国乙女西国参戦シリコンパワーBBx64聖闘士星教材高確率クレア高確率アスラズラースクリア聖闘士星矢女神聖戦リノ大量投稿Windows新記録がんばれゴエモン〜ゆき姫救出絵巻〜三日間の幸福711枚シスタークエスト4巨人の星新作ゲームラブ嬢三秋IEモンスターハンター西島大介InternetExplorer三秋縋携帯バッテリーマクロスフロンティアBBver野﨑まど猛虎花形ネタ台ルーンナイトサムライガールズサムライコードギアスコードギアスR2ハロウィントラックパッドSurfacePro3長良川鉄道のうりんスーパー乙姫チャンス乙姫チェリー弱虫ペダルガチ抽選デュエリスト六冬和生野崎まどリセット天井不発USB3.0USBハブSANWAマジカルハロウィン2マジカルハロウィン5うるう年SyntaxHighlighterスーパーストリートファイター47周年神引き単発NINJAGAIDEN開発まつりば!無限ARTDaxelアコール先生バイオハザード6デビルサバイバー掃除エクスポートインポート眠れる本能ひぐらしのなく頃に祭ハイサイ超特急ターボエヴァンゲリオン真実の翼スロットブログゲッターマウスバグナックルー大好きな台うみねこのなく頃に攻略本カバー怖い怖い沖ドキトロピカル撤去プチマーメイドVisualStudio2015スーパーオアシスショートカットエヴァンゲリオン魂を紡ぐものブログカテゴリー機動戦士ガンダム覚醒継続率タイプドットパルサー天井単発ブログ運用トトリのアトリエパトランランアトリエ女神転生パトランランチャンスアカウント背面タッチパッドコクッチーマスターズ文章変換発送WindowsStoreラッキージャックポットロンソンライターキングパルサータグ:アイスキュインハナチャンユルビスカススーパーカップセルフ・クラフト・ワールドハヤカワ文庫JAE.M.Aベンチマークペン先ペカッパZゾーン画像加工縮小専用コトノバドライブ芦奈野ひとしメモ帳テキストエディタAndroidFC2拍手キャラメイク角川つばさ文庫ドリームキャストシマシマベルセルク拍手ユニバ夢夢ちゃんフィーバーパワフルユーザタグプレミアムバジリスクチャンスファミリーコンピュータパイ遊記ボーナスSEOこめ苺あかいアミティプレミアムJACひぐらしになく頃に煌僕が愛したすべての君へ藤井太洋セプテントリオン強襲オービタル・クラウドファイル整理格安sim君を愛したひとりの僕へ乙野四方字乙女チェリーおとめ妖怪ざくろガンソード討伐の刻ぷよぷよフィーバーチューめんそーれ琉球守護神EMAカレー実践結果PSYCHO-PASS下書学園黙示録HOTD紙の本読みなよZETMANデビルメイクライクロス階段連鎖トラックバックセブンスビート這い回る毒蟲ルパン三世~消されたルパン~前兆長いスキル振りゴーレム寝違えクイーンズブレイドしおりICカードステッカーScreenBeamMini2マリア様Pile確定発火麻雀物語3押忍!サラリーマン番長空き台仮想テーブル検証バーサスメタルスラッグKOF並木のり子6周年Continuumガンナーサロメ様SNKぎゃざガールファインプレー最終巻IE非対応設置少ない乙女魂~光と無月~記事稼ぎ修理乙女魂usi菊田裕樹テラフォーマーズ人口押忍!番長2前日作戦会議南海花浪漫沖ドキ!パラダイス大嫌い旅行シャドウハーツ2~運命の道標~サンダーVリボルトまじかうすいーつプリズムナナ節目マンガ北斗の拳強敵クワドラロックロストアイランド2キッズケータイひまわりDoCoMo平和天井到達ベストショットセブンデンジャー柄ぷよぷよ通乾くるみハルキ文庫カットインバルタン星人不具合北斗の拳将次回作要望ぷよぷよ8?CZ天井サボり俺スロ打WINパチリンクマイスロバー揃い東芝SRチェリー故障ポータブルドライブリリカ様バッファロー沖縄フェスティバルポータブルHDD引き弱イケイケマハロハヤテボーナス十六夜小林恵島田フミカネ世界ふしぎ発見南国物語スペシャル真田純勇士ラブストライクドリームハナハナスーパーリノMAXストライクウィッチャーズ3ケタ乗せ1パチユニバブロスフェイトフリーズスーパービンゴネオエピソードBBエーデルスパークサマージャンボ最強武具

ブログ内検索(By Google)

WWW検索 ブログ内検索

Script_Debug
深緑の女魔術師の私的なブログ★彡
深緑の女魔術師の私的なブログ

SEGA:ぷよぷよ!!20th
ぷよぷよ!!

ぷよぷよ!![Wi-Fi Rianking]
ぷよぷよ!!ランキング
右脳式ぷよぷよルーム


☆ぷよぷよ同盟☆


NET:茉莉花の剣


戦国乙女 西国参戦編

トリビー
ぷろふぃーる

なまえ:深緑の女魔術師
(しんりょくのおんなまじゅつし) わたしってこんなひと
ぷよぷよ
DS :おんなまじゅつし
3DS:おんなまじゅつし★
Wii:まじょ@Wii

基本は、4人でフィーバー
OR 2人でフィーバー
23~26時くらいに
接続してます。

よろしくね。

天鳳
天鳳でのなまえ:深緑の女魔術師
ヨンマ段位&R:4段 R1800ちょっと
サンマ段位&R:4段 R1750

天鳳で活躍中・・・実力は??

23時~ごろに出没。

ポケモン

【ブラック】
なまえ:カリル
ID :36576

【ホワイト】
なまえ:未定
ID :未定

コメントうれしいです。

かれんだー
02 | 2017/03 | 04
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -
さいきんのせいかぶつ
ぶんるい
DTM (8)
かこのせいかぶつ
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる