Newsgroup: it.comp.lang.visual-basic
Titolo: come avere il N. di files di una cartella?

Qualcuno mi sa dire i passi di programma o la variabile di Win per avere il
numero di files contenuti in una cartella?
grazie ciao.

 ha scritto

se hai la guida, seno' su 
http://msdn.microsoft.com
, cerca
la funzione dir() / dir$()


ma jeli voi fa contà uno a uno ?
vedi un  po' il  filesystemobject magari te puo esse più utile

 vedi un  po' il  filesystemobject magari te puo esse più utile
argomento gia' discusso. puo' non esserci. e a me personalmente piace poco.

 ha scritto nel messaggio
news:9p5iev$1c92$1...@stargate1.inet.it...


piazzi una FileListBox (nome = 'quo', visible = false) in un posto
qualsiasi del tuo form (nome = 'qui')...
function quantiFILES(Percorso as string, tipoFILE as string) as long
    'Percorso: ad esempio "c:\windows"
    'tipoFILE: ad esempio "*.*" o "*.TIF;*.JPG;*.BMP"
on local error goto haiSbagliatoAdIndicareQualcosa
    qui.quo.pattern = tipoFILE 'ad esempio "*.*"
    qui.quo.path = Percorso 'ad esempio "c:\windows"
    qui.quo.refresh
    quantiFILES = qui.quo.listcount
    exit function
:haiSbagliatoAdIndicareQualcosa
    MsgBox "Guarda che: " & vblf & vblf & _
        Percorso & " potrebbe non esistere" & vblf & vblf & _
        "o, in alternativa: " & vblf & _
        tipoFILE & " è una maschera non valida", _
        vbexclamation, "erore"
    quantiFILES = -1
end function
per usarla piazza una label, (nome = 'qua'), ed due command buttons, che
chiamertemo paperone e paperino:
sub paperone_click()
    qui.qua.caption = format(quantiFILES("c:\windows","*.*"), "#,###")
end sub
sub paperino_click()
    qui.qua.caption =
format(quantiFILES("c:\windows\system","*.ocx;*.dll;*.vbx"), "#,###")
end sub
that's all...
-> GbC
PS: mi sono sforzato di arrivare ad usare tutta la banda dei paperi ma
non ci sono riuscito...
...non vi preoccupate, sto ferpettamente bene
occhio che ho fatto tutto a memoria :)

occhio che ho fatto tutto a memoria :)
... e se hai scritto un qui pro quo ?
ciao, hal

Devi dichiarare una variabile fuori dalla funzione (quindi globale per il modulo)
perchè essendo ricorsiva...la variabile verrebbe reinizializzata ogni volta che si richiama la funzione stessa!
Perdona se non ci sono commenti!
Questo è un esempio che ho modificato preso sul sito Comune. (indirizzo nella firma)
Ti permette di contare tutti i file in una cartella (comprese le sottocartelle e quindi i file contenuti in queste!)
Spero ti sia utile...Ciao SIMO
Option Explicit
Private QuantiF as Long
________________________________________________________________________
Private Function QuantiFile(ByVal Cartella As String) As Long
Dim TipoFile As Integer, ElencoCartelle As String, file As String
Dim pos As Long
On Error Resume Next
If Right$(Cartella, 1) <> "\" Then Cartella = Cartella & "\"
file = Dir$(Cartella & "*.*", vbDirectory + vbNormal)
Do While Len(file)
    If (file <> ".") And (file <> "..") Then
        TipoFile = GetAttr(Cartella & file) And vbDirectory
        If TipoFile = vbDirectory Then  ' file è una cartella
            ElencoCartelle = ElencoCartelle & file & vbCrLf
        Else
             QuantiF = QuantiF + 1
        End If
    End If
    file = Dir$
Loop
Do While Len(ElencoCartelle)
    pos = InStr(ElencoCartelle, vbCrLf)
    If pos Then
        file = Cartella & Left$(ElencoCartelle, pos - 1)
        ElencoCartelle = Mid$(ElencoCartelle, pos + Len(vbCrLf))
    Else
        file = Cartella & ElencoCartelle
        ElencoCartelle = ""
    End If
    Call QuantiFile(file)
Loop
QuantiFile = QuantiF
End Function
_______________________________________________________
--
__________________
www.sasim.net
Vb è relativamente semplice perchè c'è MSDN!
Sito Comune Ng: 
http://www.it-lang-vb.net
Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt

> ... e se hai scritto un qui pro quo ?
un qui quo qua vuoi dire...
:)
-> GbC

 un qui quo qua vuoi dire...
Ah, ce l'hai fatta :)
Con un buon assist :P
Ciao

ciao bello :)
come butta?
-> GbC

 sub paperino_click()
Che fai, tocchi ?
Bye, G.

Che fai, tocchi ?
do
  me.laugh
  doevents
loop until me.fired=true
 :-))
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------


Naaa... sto in riunione... non farmi fare 'ste fiugure...
:DDDDDD
ugo.laughing = loud

 wrote in message 9p5iev$1c92$1...@stargate1.inet.it...


 ringrazio tutti coloro che mi hanno risposto (compresa la banda Disney),
chi è la banda disney ?  :)))