DevilUI Weird error (Maybe FileType)Community Forums/Developer Stations/DevilUI Weird error (Maybe FileType)
| I have encountered a strange bug when I am using DevilUI though it appears the error is mroe a Blitz bug with the FileType command.|
here's the code snippet where the bug occurs:
grpProfName = GUI_CreateGroupBox(tabpProfile, 10, 10, 256,64,"Profile Name:") cmbProfiles= GUI_CreateComboBox(grpProfName,8,16,96) ;GUI_Message(cmbProfiles, "AddItem", -1, PROFILE_DEFAULT_PROFILE$,"") dir = ReadDir(FOLDER_PROFILES$) Repeat Stop f$ = NextFile(dir) If f$ = "" Then Exit If FileType(f$) = 2 And f$ <> "." And f$ <> ".." txt$ = f$ GUI_Message(cmbProfiles, "AddItem", -1, txt$,"") EndIf Forever CloseDir dir
It is intended to add the names of valid folders/directories to the ComboBox, however after finding the first folder (After skipping the . and .. values) when it comes to the second, it fails to comply with the "If" line. Following the BlitzDebugger, it fails to recognise the second valid folder as a directory.
i.e. FileType(f$) <> 2
I have a couple of folders in the "FOLDER_PROFILES$" and definitely the filepaths are correct.
Oh, and I'm using Blitz v100 (The latest one)
FileType$() Needed the Full path. So I changed the 'offending' line to:
If FileType(FOLDER_PROFILES$+f$) = 2 And f$ <> "." And f$ <> ".."
Works okay now :)