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.
pues haces una busqueda en todo el disco, especificando que tipo de archivos buscas.
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..
Gracias y perdón por no buscar
no hay problema,.. ;D