[ArtemkA]

ты имеешь в виду CloseDir() ? Если да, то пробовал и вызывает ошибку Directory does not exists.

Писал так:

	;-----------
	Repeat
		SavFile$=NextFile(ReadSaveDir)
		If SavFile$="" Then
			CloseDir(ReadSaveDir)
			Exit
		Else
			If SavFile$<>"." And SavFile$<>".." Then
				SavFile1$=Mid(SavFile$,1,Len(SavFile$)-4)
				WG_AddBoxItem(SaveNameList,SavFile1$)
			EndIf
		EndIf
	Forever
	;----------

ошибкавыходит на строчке

SavFile$=NextFile(ReadSaveDir)

а чтение директории у меня в самом начале в глобалке
Global ReadSaveDir=ReadDir(CurrentDir()+"\Saves")