Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS Win Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Win/WindowsFolderChange Test
This example is the version from Sun, 17th Mar 2012.
Project "WindowsFolderChange Test.xojo_binary_project"
FileTypes
Filetype text
End FileTypes
Class MainWindow Inherits Window
Control List Inherits ListBox
ControlInstance List Inherits ListBox
End Control
EventHandler Sub Open()
CreateFolders
End EventHandler
Protected Sub CreateFolders()
// Create 2500 folders and watch them
dim master as FolderItem = SpecialFolder.Desktop.Child("master")
master.CreateAsFolder
for i as integer=1 to 2500
dim name as string = Format(i,"0000")
dim f as FolderItem = master.Child(name)
f.CreateAsFolder
dim c as new MyWindowsFolderChangeMBS(f, true, MyWindowsFolderChangeMBS.ChangeFile+MyWindowsFolderChangeMBS.ChangeDir)
c.path=name
w.Append c
next
End Sub
Property Protected w() As mywindowsFolderChangeMBS
End Class
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
Class MyWindowsFolderChangeMBS Inherits WindowsFolderChangeMBS
EventHandler Sub Changed()
MainWindow.List.AddRow "Changed "+me.path
End EventHandler
Property path As string
End Class
End Project
See also:
The items on this page are in the following plugins: MBS Win Plugin.
