Visual Basic - buscar un archivo por codigo..!!

Life is soft - evento anual de software empresarial
 
Vista:

buscar un archivo por codigo..!!

Publicado por jesus (1 intervención) el 04/05/2004 00:35:12
Hola, necesito saber si se encuentra un archivo en cualqier parte de mi disco a la hora de entrar a mi sistema echo en visual, y si lo consique ejecutarlo... gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:buscar un archivo por codigo..!!

Publicado por César Augusto (158 intervenciones) el 04/05/2004 22:58:38
El siguiente ejemplo lo utilice en un reproductor que hice para mi trabajo, te busca todos los archivos en una carpeta, para tu caso necesitarías buscar en C:\ y comparar los archivos encontrados

Public Sub CargaDirectorio(ruta As String, Anidados As Boolean)
Dim f As Files
Dim folder As folder
Dim SubFolder As Folders
Dim fso As FileSystemObject
Dim f1 As File
Dim Y As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(ruta)
Set f = folder.Files
Set SubFolder = folder.SubFolders
With frmRepList
For Each f1 In f
giTotalArchivosLista = giTotalArchivosLista + 1
.grdLista.Rows = giTotalArchivosLista + 1
.grdLista.Row = giTotalArchivosLista
.grdLista.Col = gcColTitulo
.grdLista.Text = giTotalArchivosLista & ".- " & f1.Name
.grdLista.CellAlignment = 1
frmRepList.grdLista.TextMatrix(giTotalArchivosLista, gcColRuta) = f1.Path '& f1.Name
Next
End With
If Anidados Then
For Each folder In SubFolder
Call CargaDirectorio(ruta & "\" & folder.Name, Anidados)
Next
End If

End Sub


en el ciclo For Each f1 In f yo añado los archivos a una lista, tu debes de comparar si es el archivo que buscas, recuerda añadir la referencia para Scripting Runtime

Buena suserte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar