| 投稿日 | ： 2005/02/21(Mon) 16:24 |
| 投稿者 | ： こう |
| ＵＲＬ | ： |
| タイトル | ： Re^4: dir()関数の最大取得ファイル名文字数について |
ご返事有難う御座いました。
ファイルオブジェクトで取得できました。
Dim objFile As New FileSystemObject
Dim objData As Object
Dim objFolder As Folder 'フォルダオブジェクト
Set objFolder = objFile.GetFolder(フォルダパス)
'ファイル数分繰り返し
For Each objData In objFolder.Files
取得処理・・・
next
これでフォルダ内のファイル名が255文字以上でも取得出来ました。
有難う御座いました。
又何かあれば、 宜しくお願い致します。
失礼致します。