FileExists:

[|2eM!x]

Just wondering, how do you check if a directory exists? i thought it was like

Private Sub Form_Load()
    If FileExists(App.Path & "\yay.dir") Then
        Print vbNullString
    Else
        MsgBox ("File needs to be ..")
        Unload Me
    End If
End Sub

but that doesnt work.

[dglienna]

Option Explicit
 
Private Sub Form_Load()
Dim f As String
f = Dir("*.vbp", vbNormal)
If f <> "" Then Beep
End Sub

This beeps as its in my VB98 folder. Supply your folder name, and file name to check on the file existance.

[|2eM!x]

where do i change the filename? i want it to check if a dir exists

[akki]

Dim fso As New FileSystemObject
    If fso.FolderExists("C:\xyz") Then
        'Yes
    Else
        'No
    End If

Just wondering, how do you check if a directory exists? i thought it was like

Private Sub Form_Load()
    If FileExists(App.Path & "\yay.dir") Then
        Print vbNullString
    Else
        MsgBox ("File needs to be ..")
        Unload Me
    End If
End Sub

but that doesnt work.

[dglienna]

Option Explicit
 
Private Sub Form_Load()
Dim f As String
f = Dir("c:\windows", vbDirectory)
If f <> "" Then Beep
 
End Sub

as you type DIR("", you are prompted with intellisence prompts for the choices you can use. there are about 7 of them
you can use + to combine them

[|2eM!x]

"user-defined type not defined"

edit**
yay thanks dg, youve saved my night

[dglienna]

need a reference to file scripting object

[akki]

you need to add Microsoft Scripting Runtime for that.

any way, you already got a simple one your hands.

"user-defined type not defined"

edit**
yay thanks dg, youve saved my night