FileExists:

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

VB Code:

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.

VB Code:

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.

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

VB Code:

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

Quote:

---

Originally Posted by |2eM!x

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

VB Code:

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.

---

VB Code:

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

"user-defined type not defined"

edit**
yay thanks dg, youve saved my night :wave:

need a reference to file scripting object

you need to add Microsoft Scripting Runtime for that.

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

Quote:

---

Originally Posted by |2eM!x

"user-defined type not defined"

edit**
yay thanks dg, youve saved my night :wave:

---