VBAの研究ノート（3） - フォルダアクション

説明（2017年3月22日）：

ブルーファンタジーVBA80セットビデオ教示に従って1.概要

2.ほとんど自分自身の機能で処理されたが、FileSystemObjectのオブジェクトを使用する必要があるフォルダをコピーし、シェルを使用フォルダを開くことができます

パブリックサブTEST1。1（）
 1.解析フォルダが存在する2」、DIR第2のパラメータは、そうでない場合にのみファイルが存在するか否かを判断する、vbDirectoryある
 3もしディレクトリ（ThisWorkbook.path＆ "\ 1.docx"、vbDirectory）= "" そして、
 4のMsgBox（ "存在しない"） 
 。そうでない5 
 。6のMsgBox（ "現在"）
 。7の場合を終了します
 。8 End Subの
 9 
10パブリック・サブTEST2（）
。11「新しいフォルダ2. MKDIR 
12（ThisWorkbook.path＆ "\ 233" MKDIRです）
13 End Subの
14 
15ます。Public Sub Test3は（）
16「3.すべてのファイルを削除したい場合は、最初殺す内のすべてのファイルを削除する必要があり、唯一の空のフォルダを削除、フォルダ、RMDIRを削除
17 RMDIR（ThisWorkbook.path＆「\ 233「）
18 End Subのである
。19 
20パブリックサブTEST4（ある）
21は、このメソッドは括弧ことができない、名前、4.リネームフォルダとファイルです
"23333333 \"としてThisWorkbook.path＆の名前＆ThisWorkbook.path 22 "233 \"である 
37 [パブリックサブTEST7（）
38がある。7。フォルダをコピーし、内部のすべてのファイルが、最初にMicrosoftで導入FileSystemObjectオブジェクト、スクリプトランタイム使用
39をただのパス、ファイル名だけでなく、道と改名、コピーファイルのファイルをコピーし、フォルダをコピーCopyFolder
名前＆ThisWorkbook.path 23は、同様にThisWorkbook.path＆ "\ 2.docx"の"\ 1.docx"である
24 End Subの
25 
26パブリックサブTEST5（である）
、27「5.モバイルフォルダ名が一緒に移動し、ファイル内部で接続することができます
＆ThisWorkbook.path名28 "\ 2"としてThisWorkbook.path＆の"\。1 23333333 \" 
29 End Subの
30 
31 TEST6でます。Public Sub（）
先のファイル名を取り戻すために32「6.コピーファイル、FILECOPY、しかし、これはフォルダに複製することができない
33 FILECOPY ThisWorkbook.path＆ "\ 1.docx"、ThisWorkbook.path＆ある"\ 1 \ 1.docx" 
34である      
35 End Subの
36 
40薄暗いFSOとしてのファイルシステムオブジェクト
41セット新しいFSOがファイルシステムオブジェクト=さ
42 FSOあります.CopyFolder ThisWorkbook.path＆ "\ 2"、 ThisWorkbook.path＆ "\ 1 \ 3"
＆Fso.CopyFile ThisWorkbook.path 43 "\ 1.docx"、ThisWorkbook.path＆ "\ 1 \ 2.docxれる" 
44がメッセージボックスで"コピー" 
45 End Subの
46が
47パブリックサブTEST8（）
48「8オープンフォルダ、シェルは、実際に、フォルダを開くにはポップアップウィンドウです！二番目のパラメータが開き、ディスプレイ、および2は最小限にするために開いている、オープン3最大限数1で
49シェル「Explorer.exeの」ThisWorkbook.path＆＆「\ 1」、1つの
50 End Subの

説明（2017年3月22日）：

ブルーファンタジーVBA80セットビデオ教示に従って1.概要

パブリックサブTEST1。1（）
 1.解析フォルダが存在する2」、DIR第2のパラメータは、そうでない場合にのみファイルが存在するか否かを判断する、vbDirectoryある
 3もしディレクトリ（ThisWorkbook.path＆ "\ 1.docx"、vbDirectory）= "" そして、
 4のMsgBox（ "存在しない"） 
 。そうでない5 
 。6のMsgBox（ "現在"）
 。7の場合を終了します
 。8 End Subの
 9 
10パブリック・サブTEST2（）
。11「新しいフォルダ2. MKDIR 
12（ThisWorkbook.path＆ "\ 233" MKDIRです）
13 End Subの
14 
15ます。Public Sub Test3は（）
16「3.すべてのファイルを削除したい場合は、最初殺す内のすべてのファイルを削除する必要があり、唯一の空のフォルダを削除、フォルダ、RMDIRを削除
17 RMDIR（ThisWorkbook.path＆「\ 233「）
18 End Subのである
。19 
20パブリックサブTEST4（ある）
21は、このメソッドは括弧ことができない、名前、4.リネームフォルダとファイルです
"23333333 \"としてThisWorkbook.path＆の名前＆ThisWorkbook.path 22 "233 \"である 
37 [パブリックサブTEST7（）
38がある。7。フォルダをコピーし、内部のすべてのファイルが、最初にMicrosoftで導入FileSystemObjectオブジェクト、スクリプトランタイム使用
39をただのパス、ファイル名だけでなく、道と改名、コピーファイルのファイルをコピーし、フォルダをコピーCopyFolder
名前＆ThisWorkbook.path 23は、同様にThisWorkbook.path＆ "\ 2.docx"の"\ 1.docx"である
24 End Subの
25 
26パブリックサブTEST5（である）
、27「5.モバイルフォルダ名が一緒に移動し、ファイル内部で接続することができます
＆ThisWorkbook.path名28 "\ 2"としてThisWorkbook.path＆の"\。1 23333333 \" 
29 End Subの
30 
31 TEST6でます。Public Sub（）
先のファイル名を取り戻すために32「6.コピーファイル、FILECOPY、しかし、これはフォルダに複製することができない
33 FILECOPY ThisWorkbook.path＆ "\ 1.docx"、ThisWorkbook.path＆ある"\ 1 \ 1.docx" 
34である      
35 End Subの
36 
40薄暗いFSOとしてのファイルシステムオブジェクト
41セット新しいFSOがファイルシステムオブジェクト=さ
42 FSOあります.CopyFolder ThisWorkbook.path＆ "\ 2"、 ThisWorkbook.path＆ "\ 1 \ 3"
＆Fso.CopyFile ThisWorkbook.path 43 "\ 1.docx"、ThisWorkbook.path＆ "\ 1 \ 2.docxれる" 
44がメッセージボックスで"コピー" 
45 End Subの
46が
47パブリックサブTEST8（）
48「8オープンフォルダ、シェルは、実際に、フォルダを開くにはポップアップウィンドウです！二番目のパラメータが開き、ディスプレイ、および2は最小限にするために開いている、オープン3最大限数1で
49シェル「Explorer.exeの」ThisWorkbook.path＆＆「\ 1」、1つの
50 End Subの

VBAの研究ノート（3） - フォルダアクション - VBAの研究では、フォルダ操作（3）ノート

おすすめ