prueba este codigo ...eso te pasa por no buscar por el foro...
esto esta escrito por el moderador de este foro.
Function GetDir(ByVal PathSpec As String, Index As Integer, Optional GetOnlyDirName As Boolean = True) As String
On Error Resume Next
Dim lpFindData As WIN32_FIND_DATA
Dim hFind&, r&
Dim sDir$, lCnt&
'Agrega la barra '\' si no está incluida
'en la ruta de acceso.
'
PathSpec = IIf(Not Right$(PathSpec, 1) Like "\", PathSpec & "\", PathSpec)
PathSpec = PathSpec & "vbs.*"
'Abre la búsqueda.
'
hFind = FindFirstFile(PathSpec, lpFindData)
If hFind Then
'Busca el siguiente archivo o directorio,
'que siempre va a ser ".."
'
r = FindNextFile(hFind, lpFindData)
Do
r = FindNextFile(hFind, lpFindData)
If lpFindData.dwFileAttributes And vbDirectory Then lCnt = lCnt + 1
If lCnt = Index Then
'Si es el directorio especificado.
'
sDir = StrConv(lpFindData.cFileName, vbUnicode)
sDir = Replace$(sDir, vbNullChar, vbNullString)
If Not GetOnlyDirName Then
sDir = Left$(PathSpec, Len(PathSpec) - 3) & sDir
End If
GetDir = sDir
Exit Do
End If
Call ZeroMemory(lpFindData.cFileName(0), 259)
Loop Until (r = 0)
r = FindClose(hFind)
End If
End Function
solo le hice la modificacion para que te buscara los vbs..