Code: Select all
If ExamineDirectory(0,"/dev/","tty.u*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
MessageRequester("/dev/filename", DirectoryEntryName(0))
EndIf
Wend
FinishDirectory(0)
EndIf
Code: Select all
If ExamineDirectory(0,"/dev/","tty.u*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
MessageRequester("/dev/filename", DirectoryEntryName(0))
EndIf
Wend
FinishDirectory(0)
EndIf
Code: Select all
OpenPreferences(AppPath+"user.prf"):PreferenceGroup("user")
ports = ReadPreferenceString("ports","NONE")
dirs = ReadPreferenceString("dirs","") ; dirs = /dev
patterns = ReadPreferenceString("patterns","") ;patterns = tty.u*
ClosePreferences()
If ports="NONE"
ports=""
Protected i,j,dir.s,pattern.s
NewList Comports.s()
For i=1 To CountString(dirs,",")+1
dir=StringField(dirs,i,",")
For j=1 To CountString(patterns,",")+1
pattern=StringField(patterns,j,",")
If ExamineDirectory(0,dir,pattern)
;MessageRequester(dir,pattern)
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
AddElement(ComPorts())
ComPorts()=dir+"/"+DirectoryEntryName(0)
EndIf
Wend
FinishDirectory(0)
EndIf
Next j
Next i
SortList(ComPorts(),0)
ForEach ComPorts()
If FindString(ports,ComPorts(),1)=0 ;avoid duplicates
If Len(ports):ports+",":EndIf
ports+ComPorts()
EndIf
Next
;MessageRequester("ports",ports)
EndIf
EndProcedure