Скрипт загружающий в ListBox список директорий, находящихся в папке с программой (использованы только средства ММВ).
| Code |
ListBoxAddItem("SongList","RESET")
path$='<SrcDir>'
SearchForFiles("path$","*.*")
Lin=LEN(path$) +1
f$=CHR(92)
b=CBK_NumInList
For i=1 To CBK_NumInList
LoadText("string$","STRING:<List>i")
lIn=LEN(string$)
Next$=StrCopy(string$,Lin,lIn)
Pos=POS(f$,Next$)
Pos=Pos-1
dir$=' '+StrCopy(string$,Lin,Pos)
If (dir2$<>dir$) Then
lIn=LEN(dir$)
n=n+1
Dir$[n]=dir$
End
dir2$=dir$
Next i
For c=1 To n
If (Dir$[c]<>' ') Then
ListBoxAddItem("SongList","Dir$[c]")
End
Next c |
Еще один вариант скрипта для той же цели:
| Code |
BrowseForFolder("","")
OpenDir$=CBK_OpenDir
If (OpenDir$<>'') Then
ListBoxAddItem("SongList","RESET")
SearchForFiles("OpenDir$","*.*")
For i=1 To CBK_NumInList
LoadText("String$","STRING:<List>i")
Item$=ExtractDrive(String$)+ExtractDir(String$)
Length=LEN(Item$)
Item$=StrDel(Item$, Length,1)
If (PrevItem$<>Item$ & Item$<>OpenDir$) Then
PrevItem$=Item$
ListBoxAddItem("SongList","STRING:Item$")
End
Next i
End |
Все права защищены
