teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

xail2222 さんからのご指摘を反映

2022/05/17 21:43

投稿

KOZ6.0
KOZ6.0

スコア2734

answer CHANGED
@@ -4,13 +4,9 @@
4
4
  'PDFファイル名を取得(拡張子などをワイルドカードで検索して変数へ取込む)
5
5
  printFileName = Dir(printFolderPath & "*")
6
6
  ```
7
- printFolderPath にファイル完全名が入っているか確認してください。
7
+ printFolderPath に想定した文字列が入っているか確認してください。
8
8
 
9
- 話は変わりますが、Dir 関数ファイルの存在チェックを行うのは、まりい方法ではありません
9
+ 話は変わりますが、Dir 関数を実行すると、ヒットするファイルあいはフォルダがる場合、フォルダが開いたままになりま
10
- というのは、ファイル存在した場合、フォルダを開いたままにしてしまうかす。
10
+ 空文字返ってくるまで引数なしで Dir 関数を呼び出すとフォルダが閉じれます。
11
- また、ファイルでなく、フォルダが存在していてもヒットした形になるので、GetAttr 関数で取得した属性に vbDirectory フラグが立っていないことも確認しなければなりません。
12
11
 
13
- Microsoft Scripting Runtime を参照設定しScripting.FileSystemObject オブジェクトの FileExists メソッドを使うことをお勧めす。
14
-
15
- 「FileExists メソッド」
16
- [https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/fileexists-method](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/fileexists-method)
12
+ またファイルでなく、フォルダが存在していてもヒッした形になるで、GetAttr 関数で取得した属性に vbDirectory フラグが立っていないことも確認たほうが良いです。