tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板 [ツリー表示へ]   [Home]
一括表示(VB6.0)
タイトルファイルとフォルダの区別
記事No14995
投稿日: 2010/10/26(Tue) 16:56
投稿者ちょいデブ
VB6を使用しています。

Dim tmp as String
tmp="c:\temp\a"
があります。
このtmpの内容が、ファイルなのか、フォルダなのか、または存在しないのかを
判断したいのですが、どのような処理を行なえばよろしいでしょうか?

初歩的な?質問で恐れ入りますが、お教え頂けませんでしょうか。

[ツリー表示へ]
タイトルRe: ファイルとフォルダの区別
記事No14996
投稿日: 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 処理も忘れずに組み込んでおきましょう。

[ツリー表示へ]
タイトルRe^2: ファイルとフォルダの区別
記事No15000
投稿日: 2010/10/27(Wed) 09:45
投稿者ちょいデブ
魔界の仮面弁士様

早速のご回答、有難う御座いました。
解決しました。

[ツリー表示へ]