Buscar archivos dentro de un servidor FTP
Publicado por Willians (7 intervenciones) el 21/10/2008 23:28:49
Hola, estoy utilizando la siguiente rutina en visual basic .net 2005:
Dim strArchivo As String
Dim booPrimeroEncontrado As Boolean
Dim intElemento As Integer
Dim strArchivos() As String
Do
If booPrimeroEncontrado = False Then
strArchivo = Dir("C:Mis Documentos*.doc")
booPrimeroEncontrado = True
If Not strArchivo Is Nothing Then
ReDim Preserve strArchivos(intElemento)
strArchivos(intElemento) = strArchivo
intElemento += 1
Else
Exit Do
End If
Else
strArchivo = Dir()
If Not strArchivo Is Nothing Then
ReDim Preserve strArchivos(intElemento)
strArchivos(intElemento) = strArchivo
intElemento = intElemento + 1
Else
Exit Do
End If
End If
Loop
Pero no funciona ya que la misma está orientada para buscar archivos en un
directorio de red o local y deseo buscar archivos en un directorio ftp. Me da
un error con la función Dir().
Agradezco me indiquen qué le falta o si debo utilizar otra función.
El Ftp donde debo buscar es ftp.dominio.com.vecarpeta_prueba
Gracias de antemano,
Willians
Dim strArchivo As String
Dim booPrimeroEncontrado As Boolean
Dim intElemento As Integer
Dim strArchivos() As String
Do
If booPrimeroEncontrado = False Then
strArchivo = Dir("C:Mis Documentos*.doc")
booPrimeroEncontrado = True
If Not strArchivo Is Nothing Then
ReDim Preserve strArchivos(intElemento)
strArchivos(intElemento) = strArchivo
intElemento += 1
Else
Exit Do
End If
Else
strArchivo = Dir()
If Not strArchivo Is Nothing Then
ReDim Preserve strArchivos(intElemento)
strArchivos(intElemento) = strArchivo
intElemento = intElemento + 1
Else
Exit Do
End If
End If
Loop
Pero no funciona ya que la misma está orientada para buscar archivos en un
directorio de red o local y deseo buscar archivos en un directorio ftp. Me da
un error con la función Dir().
Agradezco me indiquen qué le falta o si debo utilizar otra función.
El Ftp donde debo buscar es ftp.dominio.com.vecarpeta_prueba
Gracias de antemano,
Willians
Valora esta pregunta


0