Imprimir Página - Ver ficheros *vbs

Hola, necesito un código para ver todos los ficheros *.vbs que pueda a ver en un ordenador. Y que te los valla mostrando de uno en uno, no todo seguido. Lo quiero para un gusano que estoy haciendo. Al encontrar un fichero , lo abre borra todo lo que tiene y añade un nuevo código. Por eso necesito saber como encontrarlos. He probado con el dirbox y filebox y no he tenido mucha suerte a si que si me pueden ayudar lo agradecería.

prueba este codigo ...eso te pasa por no buscar por el foro...

esto esta escrito por el moderador de este foro.

Código:

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..

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: programatrix en 23 Junio 2005, 23:52 pm