VB6対応

 

Visual Basic 中学校 > VB6 サンプル >

パスが存在するかを調べる

 

1.ファイルが存在するか調べる例

VB6対応 VB.NET2002対応 VB.NET2003対応 VB2005対応 

If Dir("C:\Windows\System32\Unlha32.dll") = "" Then
    MsgBox "ファイルは存在しません。"
Else
    MsgBox "ファイルは存在します。"
End If

 

.フォルダが存在するか調べる例

VB6対応 VB.NET2002対応 VB.NET2003対応 VB2005対応 

If Dir("C:\Windows\System", vbDirectory) = "" Then
    MsgBox "フォルダは存在しません。"
Else
    MsgBox "フォルダは存在します。"
End If

 

3.特定の種類のファイルが存在するかを調べる例

VB6対応 VB.NET2002対応 VB.NET2003対応 VB2005対応 

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で参照設定を追加するには[プロジェクト]メニューの[参照設定]を使用する。

VB6対応 VB.NET2002対応 VB.NET2003対応 VB2005対応 

'▼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関数ではドライブが使用可能か調べられます。

 


VB.NET2002対応 VB.NET2003対応 VB2005対応指定されたパスが存在するか調べるも参照