Ver ficheros *vbs

[programatrix]

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.

[byebye]

pues haces una busqueda en todo el disco, especificando que tipo de archivos buscas.

[Pseudoroot]

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

esto esta escrito por el moderador de este foro.

Código [Seleccionar] Expandir


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

[programatrix]

Gracias y perdón por no buscar

[Pseudoroot]

no hay problema,..