Zoeken naar file - MkDir

[Hombre]

Beste
Ik ben een project aan het maken met VB 6.0 en zit een beetje vast, kan iemand helpen?
Deze code werkt in VB Excel maar niet in VB 6.0

With Application.FileSearch
.LookIn = "C:\dirtest\"
.FileName = "prog.xls"
If .Execute > 0 Then
    GoTo Picto:
Else
    MkDir ("C:\dirtest")
    MsgBox "Dir gemaakt"
End If
End With
enz

Vermoedelijk is dit niet hetzelfde in VB 6.0 als in VB for applications maar ik weet niet wat.
Dank voor de hulp

 

[Hombre]

Probleem zelf opgelost

Dim strDir As String
strDir = "C:\dirtest"

Set filesys = CreateObject("Scripting.FileSystemObject")
    If Not filesys.FolderExists(strDir) Then
        MkDir ("C:\dirtest")
    End If

Opgelost !!!