Probleme mit ItemsMBS

Thu, 12 Jul 2012 03:47:33 -0700 

Hallo Christian,
bei mir liefert ItemsMBS immer 1 Datei weniger als die tatsächliche Anzahl der 
Dateien im Ordner.
Läuft auf Windows mit REAL Studio 2010r4.1
Wo liegt mein Irrtum?

  f = GetFolderItem("G:\DATEIEN\CDs\SCARLATTI\Domenico Scarlatti 13 Klavier 
Sonaten")
  
  if f <> nil then
    
    dim d as DirectorySizeMBS = f.CalculateDirectorySizeMBS(false,0)
    dim c as Integer = f.Count
    Items() = f.ItemsMBS
    
    MsgBox f.Name + EndOfLine + _
    f.AbsolutePath + EndOfLine + _
    "f.count: " + str(f.count) + EndOfLine + _                       // liefert 
13
    "d.FilesCount: " + str(d.FilesCount) + EndOfLine + _ // liefert 13
    "UBound(Items): " + str(UBound(Items))                       // liefert 11
    
  else
    MsgBox "FolderItem = nil"
  end if

Antwort per Email an