dim f as FolderItem = SpecialFolder.Desktop.Child("test.txt")
dim xd as date = f.BackupDateMBS
MsgBox xd.LongDate+" "+xd.LongTime

dim f as folderitem // your file
f.CommentMBS="Hello world!"

dim docfile as folderitem // your document file
dim appfile as folderitem
appfile=docfile.CreatorAppMBS

dim myvolume as folderitem // your volume
dim theFile as folderitem // your file
dim appfile as folderitem
dim ok as boolean
dim inFront as Boolean


appfile=myvolume.CreatorAppMBS("iCAB")
' or
ok = theFile.OpenWithAppMBS(myvolume.CreatorAppMBS("RSED"), inFront)

dim f as FolderItem = SpecialFolder.Desktop

MsgBox f.DarwinMediaClassMBS

// info for boot volume
dim info as CFDictionaryMBS = volume(0).DarwinMediaInfoMBS

if info = nil then
  beep // error
else
  CFShowMBS info // show in console
  
  dim RemovableKey as CFStringMBS = NewCFStringMBS("Removable")
  dim RemovableCFO as CFObjectMBS = info.Value(RemovableKey)
  dim RemovableCFB as CFBooleanMBS = CFBooleanMBS(RemovableCFO)
  dim Removable as Boolean = RemovableCFB.Value
  
  MsgBox "Removable: "+str(Removable)
  
  dim EjectableKey as CFStringMBS = NewCFStringMBS("Ejectable")
  dim EjectableCFO as CFObjectMBS = info.Value(EjectableKey)
  dim EjectableCFB as CFBooleanMBS = CFBooleanMBS(EjectableCFO)
  dim Ejectable as Boolean = EjectableCFB.Value
  
  MsgBox "Ejectable: "+str(Ejectable)
  
  dim SizeKey as CFStringMBS = NewCFStringMBS("Size")
  dim SizeCFO as CFObjectMBS = info.Value(SizeKey)
  dim SizeCFN as CFNumberMBS = CFNumberMBS(SizeCFO)
  dim Size as Double = SizeCFN.doubleValue / 1000000000.0
  
  MsgBox "Size: "+str(Size, "0.0")+" GB"
end if

MsgBox Volume(0).DarwinVolumeNameMBS // shows here disk1s10

dim disk as FolderItem

dim c as Integer = VolumeCount-1
for i as Integer = 0 to c
  dim v as FolderItem = volume(i)
  if v.Name = "testvolume" then
    disk = v
    exit
  end if
next

if disk = nil then
  MsgBox "Please change the name in this code."
else
  dim pid as Integer
  dim e as Integer = disk.EjectVolumeMBS(false, pid)
  
  if e=0 then
    msgBox "Volume unmounted."
  else
    
    if pid=0 then
      msgBox "Failed to unmount with error: "+str(e)
    else
      dim name as string
      dim p as new ProcessMBS // from Util plugin
      p.GetFirstProcess
      
      do
        if p.ProcessID = pid then
          name = p.Name
        end if
      loop until not p.GetNextProcess
      
      if len(name)>0 then
        msgBox "Failed to unmount with error: "+str(e)
      else
        MsgBox "Failed to unmount."+EndOfLine+EndOfLine+"The application "+name+" is still using this volume."+EndOfLine+"Error: "+str(e)
      end if
      
    end if
  end if
end if

file.FinderLabelMBS=2

// For example, testing for a file being invible works like this:
dim fdFlags as Integer
dim fileIsInvisible as boolean
dim f as FolderItem // file

fdFlags = f.GetFileFlagsMBS
if fdFlags < 0 then
  ' ... oops, an error occured
else
  fileIsInvisible = BitwiseAnd (fdFlags, &H4000) <> 0
end