• Jueves 7 de Noviembre de 2024, 17:31
« anterior próximo »
Páginas: [1]

Autor Tema:  Leer Archivos De Carpeta  (Leído 1520 veces)

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Leer Archivos De Carpeta
« en: Viernes 16 de Mayo de 2008, 18:34 »
0
Salu2. ¿Cómo puedo leer los nombres de los archivos de una carpeta determinada?.

Gracias.

 :smartass:  :comp:  :smartass:
Mi mujer tiene un físico bárbaro!!!. Einstein.

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Leer Archivos De Carpeta
« Respuesta #1 en: Viernes 16 de Mayo de 2008, 20:53 »
0
Ya lo he conseguido, muchas gracias,
 :comp:  :smartass:  :comp:
Mi mujer tiene un físico bárbaro!!!. Einstein.

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Leer Archivos De Carpeta
« Respuesta #2 en: Sábado 17 de Mayo de 2008, 01:03 »
0
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

Sagutxo

  • Miembro MUY activo
  • ***
  • Mensajes: 320
    • Ver Perfil
Re: Leer Archivos De Carpeta
« Respuesta #3 en: Domingo 18 de Mayo de 2008, 00:53 »
0
Salu2, encantado.

He creado un control FileListBox que refresco cada vez que cambia el control DirListBox. Se llama File1.

Código: Text
  1. Private Sub Renombrar()
  2. Dim ArchivoN As String
  3. Dim ValCont As Long
  4.  
  5.   If File1.ListCount > 0 Then
  6.  
  7.     For ValCont = 0 To (File1.ListCount - 1)
  8.     'File1.ListIndex = ValCont 'Funcion mia
  9.     'ArchivoN = DameArchivo()  'Funcion mia
  10.    
  11.       If File1.FileName <> ArchivoN Then
  12.     '  renombra ArchivoN 'Funcion mia
  13.       End If
  14.    
  15.     Next ValCont
  16.    
  17.   End If
  18. 'File1.Refresh
  19. End Sub
  20.  
Espero que te sirva.

 :comp:  :smartass:  :comp:
Mi mujer tiene un físico bárbaro!!!. Einstein.
Páginas: [1]
« anterior próximo »