| |
▼Gin_II さん：
返信有難うございます。
早速ヘルプで使用例を見て以下のようにしてみたのですが、ファイル名が見つかりませんとエラーが出てしまいます。
フォルダ内に複数のファイルがあった場合のファイル名の抽出もこの方法で可能なのでしょうか？
初歩的な質問ばかりですみませんがご教授お願い致します。
Function AAA()
'MyFile = Dir
' 隠しファイル属性を持つ *.TXT ファイルであり、最初に見つかったファイル名を返します。
MyFile = Dir("*.TXT", vbHidden)
' C:\ 内のフォルダの名前を表示します。
MyPath = "c:\AAA\TEXT_DATA" ' パスを設定します。
MyName = Dir(MyPath, vbDirectory) ' 最初のフォルダ名を返します。
Do While MyName <> "" ' ループを開始します。
' 現在のフォルダと親フォルダは無視します。
If MyName <> "." And MyName <> ".." Then
' ビット単位の比較を行い、MyName がフォルダかどうかを調べます。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' フォルダであれば、それを表示します。
End If
End If
MyName = Dir ' 次のフォルダ名を返します。
Loop
End Function
|
|
morik
- 04/10/8(金) 15:37 -
