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