パスが存在するかを調べる
1.ファイルが存在するか調べる例
If Dir("C:\Windows\System32\Unlha32.dll") = "" Then
MsgBox "ファイルは存在しません。"
Else
MsgBox "ファイルは存在します。"
End If
2.フォルダが存在するか調べる例
If Dir("C:\Windows\System", vbDirectory) = "" Then
MsgBox "フォルダは存在しません。"
Else
MsgBox "フォルダは存在します。"
End If
3.特定の種類のファイルが存在するかを調べる例
Dim FileName As String FileName = Dir("C:\Windows\*.bmp")
If FileName = "" Then
MsgBox "C:\Windowsフォルダにbmpファイルは存在しません。"
Else
MsgBox FileName & "を発見しました。"
End If
4.FileSystemObjectを使用する例
以下のサンプルを実行する前に参照設定にMicrosoft Scripting Runtimeを追加する必要がある。
VB6で参照設定を追加するには[プロジェクト]メニューの[参照設定]を使用する。
'▼FileSystemObjectを使用する前準備
Dim oFs As Scripting.FileSystemObject
Set oFs = New Scripting.FileSystemObject
'▼ファイルが存在するかを調べる
If oFs.FileExists("C:\Windows\しゃくなげ.bmp") Then
MsgBox "ファイルは存在します。"
Else
MsgBox "ファイルは存在しません。"
End If
'▼後処理
Set oFs = Nothingメモ:これだけのためにFileSystemObjectを使用するのはおすすめできません。なお、FileSystemObjectでフォルダが存在するか確かめるときはFolderExists関数を使 います。また、DriveExistst関数ではドライブが使用可能か調べられます。
→指定されたパスが存在するか調べるも参照