TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
To MiMi :
Funguje :) - já jsem napsal
For f:= 1 to FSO.Drives.Count do
....
Bohužel se už ale nedostanu k položce Item, která obsahuje ony data (typ, velikost, volných, atd. včetně všech podadresářů).
Příspěvky odeslané z IP adresy 88.100.190.–
MilanXL
MilanXL
Ahojky, patrně mám dotaz ze skupiny "hloupých", ale bohužel se mi doposud nepodařilo nalézt odpovědi.
Problém spočívá v tom, že nevím, jak projít kolekci dat způsobem, který je ve Visual Basicu vyřešen pomocí příkazu - For Each XX in YY.
Konkrétně se jedná o to, že jsem použil (deklaroval) proměnnou
FSO := CreateOleObject('Scripting.FileSystemObject');
, kde se potřebuji dostat k seznamu (výpisu informací) o jednotkéch (HDD, CD/DVD ROM, apod.), které jsou instalované.
Ta deklarovaná proměnná je v tomto případě pouze jako příklad.
Dotaz tedy spočívá v tom, jak projít kolekci (array) dat, aniž bych musel použít něco jako:
...FSO.Drives.Item[1].VolumeName...
Přes Watch tam položky Item jsou, ale nijak se k nim bohužel nedostanu :(
Předem děkuji za informace
MilanXL
