[ VBA ] Name ステートメント（ファイルのリネームと移動）

VBA では、ファイル名の変更や移動は Name ステートメントを利用して行うこともできます。なんだかすごいです。

Name ステートメント

VBA では、次のように Name ステートメントでファイルを移動させることができます。

Name “元ファイルパス” As “移動後のファイルパス”

実際のサンプルスクリプトは次の通りです。詳細はサンプル内のコメントを参照ください。

    ' ファイル名のリネーム（同一フォルダ内での移動です）
    Name "E:\キレイな女性.jpg" As "E:\かわいい女性.jpg"

    ' ファイルの移動
    ' 移動先のフォルダ（バックアップ）が存在しない場合はエラーとなります。
    ' 残念ながら自動では作成されません。
    Name "E:\かわいい女性.jpg" As "E:\バックアップ\かわいい女性.jpg"

イメージ画像の中身は？

画像が気になりますか？仕方がありません。公開します。こちらが、可愛い女性です。

参照元の記事内では、次のように書かれていました。

大概の男性は、女性の恥ずかしがる表情が大好き。かわいいな、と思う心と、男の子特有のいたずら心がぐいぐい刺激されるからなのかもしれません。

断言します。全く違います。恥じらう女性に「キュン」とはしません。

「最低」の貴公子まさお

わたしは、よく「最低！」と呼ばれます。上の可愛い女性が恥ずかしがっているように見えますか？見えないですよね。そう、どんな時に女性に「キュン」として、可愛いと思うかといいますと、女性が絶望しているときです。

• 借金で首が回らない
• 彼氏に思いっきり捨てられた
• うっかり人身事故を起こしてしまった

などなどです。最低と呼ばれる理由がわかりましたか？ちなみに愛読書は、次の３つです。

闇金ウシジマくん

実写化されたドラマや映画も好きです。金利はトゴです。

白竜

漫画のみ好きです。

ミナミの帝王

これも、漫画のみ好きです。金利はトイチです。ウシジマくんに比べると非常に良心的です。