Sorry your browser is not supported!

String GetFirstSystemDrive()
String GetNextSystemDrive()
String GetSystemDriveType(String Drive)
String GetSystemDriveInformation(String Drive, Integer InfoType)
			InfoType(0) = Serial
			InfoType(1) = Component Length (max number of chars between backslashes)
			InfoType(2) = File-System (FAT, NTFS, ...)
			InfoType(3) = Volume Name
Integer CreateFolder(String FolderName)
String GetWorkingDirectory()
Integer DeleteFolder(String FolderName)
Integer SetWorkingDirectory(String Path)
Integer FileCopy(String SourceFile, String DestFile, Integer Overwrite)
			Overwrite(0) = Exists file will not overwritten.
			Overwrite(1) = Exists file will overwritten.
Integer FileMove(String SourceFile, String DestFile)
Integer FolderMove(String SourceFolder, DestFolder)
Integer FileDelete(String FileName)
String GetFirstFile(String FolderFile)
String GetNextFile()
Integer GetCurrentFileAttributes()
Integer GetFileAttributes(String FileName)
String GetCurrentFileCreationDate(Integer SeperatorChar)
String GetCurrentFileCreationTime(Integer SeperatorChar)
String GetCurrentFileLastAccessDate(Integer SeperatorChar)
String GetCurrentFileLastAccessTime(Integer SeperatorChar)
String GetCurrentFileLastWriteDate(Integer SeperatorChar)
String GetCurrentFileLastWriteTime(Integer SeperatorChar)
Integer GetCurrentFileSizeLow()
Integer GetCurrentFileSizeHigh()
String GetCurrentFileSizeAsHexString(Integer Long) ('Long' means SizeHigh:SizeLow)
String GetCurrentFileSizeAsString(Integer Long) ('Long' means SizeHigh:SizeLow)
String GetFullPathFromFile(String FileName)
String GetFirstFolder(String Path)
String GetNextFolder()

String ChooseFileDialog(String Title, String Filter, Integer MultiSelect)
			If you enable multi select, and select multiple files. This returns a string containing the selected directory and then all files in it. All are separated by the pipe ('|').
String SaveAsDialog(String Title, String Filter)
Integer MessageBox(String Message, String Title)
Integer MessageBox(String Message, String Title, Integer Buttons)
Integer MessageBox(String Message, String Title, Integer Buttons, Integer Icon)
Integer MessageBox(String Message, String Title, Integer Buttons, Integer Icon, Integer DefaultButton)
			Buttons(0) = The message box contains one push button: OK.
			Buttons(1) = The message box contains two push buttons: OK and Cancel.
			Buttons(2) = The message box contains three push buttons: Abort, Retry, and Ignore.
			Buttons(3) = The message box contains two push buttons: Yes and No.
			Buttons(4) = The message box contains two push buttons: Yes and No.
			Buttons(5) = The message box contains two push buttons: Retry and Cancel.
			Buttons(6) = The message box contains three push buttons: Cancel, Try Again, Continue. Use this message box type instead of (2) Abort, Retry, and Ignore.

			Icon(16) = A stop-sign icon appears in the message box.
			Icon(32) = A question-mark icon appears in the message box.
			Icon(48) = An exclamation-point icon appears in the message box.
			Icon(64) = An icon consisting of a lowercase letter i in a circle appears in the message box.
			
			DefaultButton = Set the button to default. 0, 1 or 2 (e.g. 0=Cancel, 1=Try Again, 2=Continue)
			
			return value can be ...
			0 = unexpected error.
			1 = The OK button was selected.
			2 = The Cancel button was selected.
			3 = The Abort button was selected.
			4 = The Retry button was selected.
			5 = The Ignore button was selected.
			6 = The Yes button was selected.
			7 = The No button was selected.
			10 = The Try Again button was selected.
			11 = The Continue button was selected.

                        d 	= Day of Month without leading zero.
                        dd 	= Day of Month with leading zero.
                        ddd = Three chars day of week.
                        dddd= Full name of week.
                        M	= Month as digits without leading zero.
                        MM	= Month as digits with leading zero.
                        MMM	= Three chars month name.
                        MMMM= Full name of month.
                        Y 	= Years last two gigits without leading zero.
                        YY	= Years last two gigits with leading zero.
                        YYYY= Four digit Year.

                        h 	= Hours - 12 hour clock without leading zero.
                        hh	= Hours - 12 hour clock with leading zero.
                        H	= Hours - 24 hour clock without leading zero.
                        HH	= Hours - 12 hour clock with leading zero.
                        m	= Minutes without leading zero.
                        mm 	= Minutes with leading zero.
                        s	= Seconds without leading zero.
                        ss 	= Seconds with leading zero.

type SystemDrive
	Volume as String
VolName as String
	Serial as String
	ComLength as Integer
	FileSystem as String
endtype

function GetDrives(drvList Ref as SystemDrive[])
	drive as SystemDrive

	drive.Volume = FileExplore.GetFirstSystemDrive()
	drive.Serial = FileExplore.GetSystemDriveInformation(drive.Volume, 0)
	drive.ComLength = Val(FileExplore.GetSystemDriveInformation(drive.Volume, 1))
	drive.FileSystem = FileExplore.GetSystemDriveInformation(drive.Volume, 2)
	drive.VolName = FileExplore.GetSystemDriveInformation(drive.Volume, 3)
	
	while(len(drive.Volume) > 0)
		drvList.Insert(drive)

		drive.Volume = FileExplore.GetNextSystemDrive()
		drive.Serial = FileExplore.GetSystemDriveInformation(drive.Volume, 0)
		drive.ComLength = Val(FileExplore.GetSystemDriveInformation(drive.Volume, 1))
		drive.FileSystem = FileExplore.GetSystemDriveInformation(drive.Volume, 2)
		drive.VolName = FileExplore.GetSystemDriveInformation(drive.Volume, 3)
	endwhile	
endfunction drvList.length()

function GetFolders(fldList Ref as String[])
	folder as String
	
	folder = FileExplore.GetFirstFolder("Y:\*.*")
	
	while(len(folder) > 0)
		fldList.Insert(folder)
		folder = FileExplore.GetNextFolder()
	endwhile	
endfunction fldList.length()

function GetFiles(fldList Ref as String[])
	file as String
	file = FileExplore.GetFirstFile("Y:\*.*")
	
	while(len(file) > 0)
		fldList.Insert(file)
		file = FileExplore.GetNextFile()
	endwhile	
endfunction fldList.length()

String ChooseFileDialog(String Title, String Filter, Integer MultiSelect)
			If you enable multi select, and select multiple files. This returns a string containing the selected 
                        directory and then all files in it. All are separated by the pipe ('|').
String SaveAsDialog(String Title, String Filter)
Integer MessageBox(String Message, String Title)
Integer MessageBox(String Message, String Title, Integer Buttons)
Integer MessageBox(String Message, String Title, Integer Buttons, Integer Icon)
Integer MessageBox(String Message, String Title, Integer Buttons, Integer Icon, Integer DefaultButton)
			Buttons(0) = The message box contains one push button: OK.
			Buttons(1) = The message box contains two push buttons: OK and Cancel.
			Buttons(2) = The message box contains three push buttons: Abort, Retry, and Ignore.
			Buttons(3) = The message box contains three push buttons: Yes, No, and Cancel.
			Buttons(4) = The message box contains two push buttons: Yes and No.
			Buttons(5) = The message box contains two push buttons: Retry and Cancel.
			Buttons(6) = The message box contains three push buttons: Cancel, Try Again, Continue. 
                                               Use this message box type instead of (2) Abort, Retry, and Ignore.

			Icon(16) = A stop-sign icon appears in the message box.
			Icon(32) = A question-mark icon appears in the message box.
			Icon(48) = An exclamation-point icon appears in the message box.
			Icon(64) = An icon consisting of a lowercase letter i in a circle appears in the message box.
			
			DefaultButton = Set the button to default. 0, 1 or 2 (e.g. 0=Cancel, 1=Try Again, 2=Continue)
			
			return value can be ...
			0 = unexpected error.
			1 = The OK button was selected.
			2 = The Cancel button was selected.
			3 = The Abort button was selected.
			4 = The Retry button was selected.
			5 = The Ignore button was selected.
			6 = The Yes button was selected.
			7 = The No button was selected.
			10 = The Try Again button was selected.
			11 = The Continue button was selected.

FileExplorer.SetWindowStyle(0x10000000 || 0x01000000 || 0x80000000) // (WS_VISIBLE | WS_CLIPSIBLINGS | WS_POPUP)

// load plugin
#import_plugin FileExplore As fe

...

// store the date and time
date as String
time as String

// set position of the DateTime dialog
fe.SetDialogPosition(200, 200)

// open the dialog if clicking on ok store date and time
if fe.OpenDateTimePicker() = 1
	// get date as formated string
	date = fe.GetDateString("ddd, yyyy MMM dd")
	// get time as formated string
	time = fe.GetTimeString("hh-mm")
endif


do
    Print( ScreenFPS() )
    
	print(date)
	print(time)
	
	print("year " + Str(fe.GetDateYear()))
	print("month " + Str(fe.GetDateMonth()))
	print("day " + Str(fe.GetDateDay()))
	print("day of week " + Str(fe.GetDateDayOfWeek()))
	print("hour " + Str(fe.GetDateHour()))
	print("minute " + Str(fe.GetDateMinute()))
	print("second " + Str(fe.GetDateSecond()))

	if GetRawKeyReleased(27)
		exit
	endif
		
    Sync()
loop

#import_plugin FileExplore As fe

// Project: FileExplore 
// Created: 2017-05-06

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "_FileExplore_" )
SetWindowSize( 1024, 1024, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 1024 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

date as String
time as String
fe.SetDialogPosition(200, 200)
if fe.OpenDateTimePicker() = 1
	date = fe.GetDateString("ddd, yyyy MMM dd")
	time = fe.GetTimeString("hh-mm")
endif

do
    Print( ScreenFPS() )
    
	print(date)
	print(time)
	
	print("year " + Str(fe.GetDateYear()))
	print("month " + Str(fe.GetDateMonth()))
	print("day " + Str(fe.GetDateDay()))
	print("day of week " + Str(fe.GetDateDayOfWeek()))
	print("hour " + Str(fe.GetDateHour()))
	print("minute " + Str(fe.GetDateMinute()))
	print("second " + Str(fe.GetDateSecond()))

	if GetRawKeyReleased(27)
		exit
	endif
		
    Sync()
loop