Q5/ws_objects/Ew_mainface.pbl.src/f_check_dwname.srf

$PBExportHeader$f_check_dwname.srf
global type f_check_dwname from function_object
end type

forward prototypes
global function string f_check_dwname (string arg_path, string arg_dwname)
end prototypes

global function string f_check_dwname (string arg_path, string arg_dwname);IF arg_path =  '' THEN RETURN ''

String rslt = ''

String ls_data,s[]
Long ll_row,k
String ls_msm[]
s[4] = LibraryDirectory(arg_path,DirDataWindow!) //name ~t date/time modified ~t comments ~n

DO WHILE TRUE
	k = Pos(s[4],'~t')
	IF k = 0 THEN EXIT
	s[1] = Left(s[4],k -1)
	s[4] = Mid(s[4],k+1)
	k = Pos(s[4],'~t')
	s[3] = Left(s[4],k -1)
	s[4] = Mid(s[4],k+1)
	k = Pos(s[4],'~n')
	s[2] = Left(s[4],k -1)
	s[4] = Mid(s[4],k+1)
	IF Len(Trim(s[2])) > 1 AND Trim(s[1]) = arg_dwname THEN
		rslt = Left(s[2],Len(s[2]) - 1 )
		RETURN rslt
	END IF
	
LOOP

RETURN ''



end function