Hello,
Here is a new plugin for you. Lately, the insufficient support for desktop file browsing was a few times a topic here in the forum.
Now I offer you a plugin, that treats exactly this problem. I hope you can use it.
Plugin:
FileExplore
Here is the command list:
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()
The commands starting with 'GetCurrentFile ...'. Refer to the file obtained with GetFirstFile and GetNextFile.
[UPDATE:27-04-2017]
New Function ChooseFileDialog
New Function SaveAsDialog
New Function MessageBox
Function in detail:
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.
[UPDATE:06-05-2017]
New Function - String GetCL()
[UPDATE:16-10-2018]
Added 64Bit DLL
And some code snippets.
System-Drive-Enumeration:
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()
Folder Enumeration:
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()
File Enumeration:
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()
Please tell me if you find bugs or have some suggestions.
Share your knowledge. It\'s a way to achieve immortality.
(Tenzin Gyatso)
