PROCEDURE diskspace_ok PARAMETERS p_qual IF p_qual = 1 dir_2 = "" ELSE dir_2 = "BKP\" ENDIF DIMENSION vet_dbf(1) DIMENSION vet_cdx(1) DIMENSION vet_fpt(1) xcriou = ADIR(vet_dbf,xdir+dir_2+"*.dbf") IF xcriou = 0 DO dctaviso DO msg1bot WITH "Não há arquivos a serem verificados !" RETURN .F. ENDIF = ADIR(vet_cdx,xdir+dir_2+"*.cdx") = ADIR(vet_fpt,xdir+dir_2+"*.fpt") tam_arqs = 0 FOR i = 1 TO ALEN(vet_dbf,1) tam_arqs = tam_arqs + vet_dbf(i,2) NEXT FOR i = 1 TO ALEN(vet_cdx,1) tam_arqs = tam_arqs + vet_cdx(i,2) NEXT FOR i = 1 TO ALEN(vet_fpt,1) tam_arqs = tam_arqs + vet_fpt(i,2) NEXT IF tam_arqs >= DISKSPACE() DO dctaviso DO msg1bot WITH "Não há espaço suficiente em disco." RETURN .F. ENDIF RETURN .T.