Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak policzyć ile jest plików w folderze?
anonim




Typ: Nie zarejestrowany
Jak policzyć ile jest plików w folderze?

Jaka jest funkcja do liczenia ilości plików w folderze?
Jeśli taka jest to:
  - np. okazało się, że plików jest np. 6. Czy mogę tą ilość plików przyporządkować ilości zmiennych w tablicy czyli: tablica(x)
                          x=ilość plików którą naliczyła ta funkcja, którą chcę znać.

Może mi ktoś pomóc?

04-04-2003 21:48
  
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

takie cos mi przyszlo do glowy... z uzyciem Scripting runtime (Project/References/Microsoft Scripting Runtime)

i taka procedura:

Sub CountFiles(ByVal path As String)

    Dim FSO As New FileSystemObject
    Dim Folder, Tablica(), nVariables As Long
    ' nVariables to liczba plikow w folderze a jednoczesnie liczba zmiennych w tablicy
   
    Set Folder = FSO.GetFolder(path)

    If FSO.FolderExists(path) = True Then
        nVariables = Folder.Files.Count
       
        ReDim Tablica(1 To nVariables)
        'redeklaracja tablicy dynamicznej
        ' teraz wystarczy jakas petelka aby odpowiednim tablicom
        'nadac wartosci...

    End If

End Sub


_____________________________________________
www.KURDE.pl

05-04-2003 14:14
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

łatwiej jest tak:

file1.path="c:\windows"
Redim T(1 to file1.listcount)

for a=0 to file1.listcount-1
T(a+1)=File1.list(a)
next a


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

06-04-2003 10:04
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
anonim




Typ: Nie zarejestrowany

Wielkie dzięki...nie wiele wiem o FileSystmeObject, ale widząc w jak ważnych sytuacjach się on przydaje to bardziej zaczynam go doceniać...

07-04-2003 20:56
  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1