SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Sagutxo en Viernes 16 de Mayo de 2008, 18:34

Título: Leer Archivos De Carpeta
Publicado por: Sagutxo en Viernes 16 de Mayo de 2008, 18:34
Salu2. ¿Cómo puedo leer los nombres de los archivos de una carpeta determinada?.

Gracias.

 :smartass:  :comp:  :smartass:
Título: Re: Leer Archivos De Carpeta
Publicado por: Sagutxo en Viernes 16 de Mayo de 2008, 20:53
Ya lo he conseguido, muchas gracias,
 :comp:  :smartass:  :comp:
Título: Re: Leer Archivos De Carpeta
Publicado por: F_Tanori en Sábado 17 de Mayo de 2008, 01:03
Una opcion es usar la funcion DIR

y por cierto....

http://foros.solocodigo.com/index.php?show...=0&#entry123118 (http://foros.solocodigo.com/index.php?showtopic=33311&st=0&#entry123118)
http://foros.solocodigo.com/index.php?show...=0&#entry121853 (http://foros.solocodigo.com/index.php?showtopic=32914&st=0&#entry121853)
http://foros.solocodigo.com/index.php?show...=0&#entry116298 (http://foros.solocodigo.com/index.php?showtopic=31201&st=0&#entry116298)
http://foros.solocodigo.com/index.php?show...=0&#entry113393 (http://foros.solocodigo.com/index.php?showtopic=30385&st=0&#entry113393)
http://foros.solocodigo.com/index.php?show...=0&#entry110407 (http://foros.solocodigo.com/index.php?showtopic=29416&st=0&#entry110407)
http://foros.solocodigo.com/index.php?show...=0&#entry102336 (http://foros.solocodigo.com/index.php?showtopic=27604&st=0&#entry102336)
http://foros.solocodigo.com/index.php?show...t=0&#entry86964 (http://foros.solocodigo.com/index.php?showtopic=24197&st=0&#entry86964)


Coincido con Mollense,Firme,CpMario entre otros...


Saludos
Título: Re: Leer Archivos De Carpeta
Publicado por: Sagutxo en Domingo 18 de Mayo de 2008, 00:53
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: