Хочу создать процедуру которая будет мне выводить первую попавшуюся папку на заданов пути. Вот что я сделал:
Procedure aa(Directory$) If ExamineDirectory(0, Directory$, "*.*") While NextDirectoryEntry(0) If DirectoryEntryType(0) = #PB_DirectoryEntry_File Type$ = " [File] " Else Type$ = " [Sub-Dir] " EndIf If DirectoryEntryName(0)="." Or DirectoryEntryName(0)=".." Goto c EndIf f$= DirectoryEntryName(0) c: Wend FinishDirectory(0) EndIf EndProcedure Debug aa("c:\")
Подразумивается что:
aa(<Моя папка>)=<1 попавшийся в этой папке файл>.
То есть aa(...) будет присваиватся 1 попавшийся файл. Но в процедуре он присваивается f$. Так как aa(...) связась с а$? Подскажите пожалуйста.