タイトル | : Re: ファイルとフォルダの区別 |
記事No | : 14996 |
投稿日 | : 2010/10/26(Tue) 17:42 |
投稿者 | : 魔界の仮面弁士 |
> tmp="c:\temp\a" > があります。 > このtmpの内容が、ファイルなのか、フォルダなのか、または存在しないのかを > 判断したいのですが、どのような処理を行なえばよろしいでしょうか?
FileSystemObject を使うのが簡単かと思います。
Dim tmp As String tmp = "C:\temp\a"
'--- FileSystemObject を使った検出方法 --- Dim fso As Scripting.FileSystemObject Set fso = New Scripting.FileSystemObject 'Dim fso As Object 'Set fso = CreateObject("Scripting.FileSystemObject")
Debug.Print "ディレクトリか?", fso.FolderExists(tmp) Debug.Print "ファイルか?", fso.FileExists(tmp)
この他 GetAttr を使う手法もあります。
ただし、存在しないファイルを指定したり、アクセス権が不足している場合には 実行時エラーが発生するため、On Error 処理も忘れずに組み込んでおきましょう。
|