hp/Yab2Cpp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update Filebox.yab

Browse Source
This commit is contained in:
Jim
2015-05-08 11:45:07 -07:00
parent 83339084fe
commit 286f407c20
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
yab-IDE/Programs/libs/Filebox.yab
View File

@@ -83,7 +83,13 @@ export sub FileboxDirectory(ID$, dir$, showDot)
arraysizeFiles = arraysizeFiles + 1
dim files$(arraysizeFiles)
files$(arraysizeFiles-1) = splitdir$(i)
if right$(splitdir$(i),1)="*" then
files$(arraysizeFiles-1) = left$(splitdir$(i), len(splitdir$(i)) -1)
elseif right$(splitdir$(i),1)="@" then
files$(arraysizeFiles-1) = left$(splitdir$(i), len(splitdir$(i)) -1)
else
files$(arraysizeFiles-1) = splitdir$(i)
endif
endif
next i
for i=0 to arraysizeDir-1