Newsgroup: it.comp.lang.visual-basic
Titolo: elenco intero dei file

C'è un modo già pronto per avere l'elenco dei files contenuti in una
cartella, compresi tutti quelli contenuti in tutte le sottocartelle... in
parole povere ho un CD e debbo avere l'intera lista dei file contenuti in
ogni cartella e sottocartella del disco...
Grazie a chi vuole lasciare un'indicazione.

 ha scritto nel messaggio 
news:oG_6d.17709$N45.4...@twister2.libero.it...


 ogni cartella e sottocartella del disco...
Prova a cercare qui:
http://groups.google.it/groups?hl=it&lr=&ie=UTF-8&group=it.comp.lang.visual-basic
E' una domanda abbastanza ricorrente
Ciao

...

prova con:
Dim nextfile As String
    Dim path As String
    Dim nextindex As String
    Static i As Integer
 
i = 0
path = "C:\tuopercorso\"
nextfile = Dir(path & Pattern, vbNormal)
Do While nextfile <> ""
        i = i + 1
       	nextfile = Dir()
Loop

 Loop
Questo non va nelle sottocartelle.
Ciao

 ha scritto nel messaggio
news:2s5d1nF...@uni-berlin.de...


livelli di directory, bah... domani riprovo a cercare.
http://vbnet.mvps.org/index.html?code/fileapi/folderenumadvanced.htm
E' un metodo alquanto veloce che utilizza le api.
Nell'esempio, viene caricato l'albero delle directory in un treeview, ma è
facile adattare la cosa alle proprie esigenze.
termoPilucco

 /S
www.cerretosoft.it
\ita\download\esempivb6
scarica "list"
--
Mauro Cerreto

(che è quello che mi serve...)
Prova questo, vediamo se ti piace
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0";
"MSCOMCTL.OCX"
Begin VB.Form Form1 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Form1"
   ClientHeight    =   3732
   ClientLeft      =   36
   ClientTop       =   420
   ClientWidth     =   6612
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3732
   ScaleWidth      =   6612
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox fileTxt 
      Height          =   288
      Left            =   1200
      TabIndex        =   7
      Text            =   "c:\tmp\files.txt"
      Top             =   1044
      Width           =   5172
   End
   Begin VB.TextBox fileText 
      Height          =   288
      Left            =   1200
      TabIndex        =   5
      Text            =   "*.txt"
      Top             =   204
      Width           =   1572
   End
   Begin VB.TextBox dirText 
      Height          =   288
      Left            =   1200
      TabIndex        =   2
      Text            =   "c:\tmp"
      Top             =   600
      Width           =   5172
   End
   Begin MSComctlLib.ListView ListView1 
      Height          =   1812
      Left            =   120
      TabIndex        =   1
      Top             =   1680
      Width           =   6252
      _ExtentX        =   11028
      _ExtentY        =   3196
      View            =   3
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -
2147483640
      BackColor       =   -
2147483643
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Esegui"
      Height          =   252
      Left            =   5520
      TabIndex        =   0
      Top             =   240
      Width           =   852
   End
   Begin VB.Label Label3 
      Caption         =   "File:"
      Height          =   252
      Left            =   240
      TabIndex        =   6
      Top             =   1080
      Width           =   732
   End
   Begin VB.Label Label2 
      Caption         =   "Estensione:"
      Height          =   252
      Left            =   240
      TabIndex        =   4
      Top             =   240
      Width           =   1092
   End
   Begin VB.Label Label1 
      Caption         =   "Cartella:"
      Height          =   252
      Left            =   240
      TabIndex        =   3
      Top             =   600
      Width           =   732
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim iRighe As Integer
Dim file As Long
Private Sub Command1_Click()
    ListView1.ListItems.Clear
    iRighe = 0
    file = FreeFile
    Open fileTxt For Output As #file
    CercaFile dirText.Text, fileText.Text
    Close #file
End Sub
Sub CercaFile(ByVal NomeDir As String, ByVal NomeFile As String)
    Dim FileFound As String
    Dim PathNames() As String
    Dim FileNames() As String
    Dim k As Integer
    Dim li As ListItem
    k = -1
    If Right$(NomeDir, 1) <> "\" Then NomeDir = NomeDir & "\"
    FileFound = Dir$(NomeDir & NomeFile)
    Do While FileFound <> ""
        If FileFound <> "." And FileFound <> ".." Then
            k = k + 1
            ReDim Preserve FileNames(k)
            FileNames(k) = FileFound
            Print #file, NomeDir + FileFound
        End If
        FileFound = Dir$
    Loop
    If k <> -1 Then
        For k = 0 To UBound(FileNames)
            iRighe = iRighe + 1
            Set li = ListView1.ListItems.Add(, , Format(iRighe,
"00000"))   ' righe
            li.SubItems(1) = NomeDir
            li.SubItems(2) = FileNames(k)
        Next
    End If
    k = -1
    FileFound = Dir(NomeDir, vbDirectory)
    Do While FileFound <> ""
        If FileFound <> "." And FileFound <> ".." Then
            If (GetAttr(NomeDir & FileFound) And vbDirectory) =
vbDirectory Then
                k = k + 1
                ReDim Preserve PathNames(k)
                PathNames(k) = FileFound
            End If
        End If
        FileFound = Dir
    Loop
    If k = -1 Then Exit Sub
    For k = 0 To UBound(PathNames)
        CercaFile NomeDir & PathNames(k), NomeFile
    Next
End Sub
Private Sub Form_Load()
    ListView1.ColumnHeaders.Add , , "Riga", ListView1.Width / 10 * 2,
lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "Cartella", ListView1.Width / 10 *
4, lvwColumnLeft
    ListView1.ColumnHeaders.Add , , "File", ListView1.Width / 10 * 4,
lvwColumnLeft
End Sub
=======================================================================
Se mi vuoi scrivere togli le maiuscole
Sveltolampo 
cteniza...@hotmail.com
=======================================================================

 >(che č quello che mi serve...)
