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(iif(at(":",xdir+dir_2)>0,substr(xdir+dir_2,1,2),""))
   DO dctaviso
   DO msg1bot WITH "Não há espaço suficiente em disco."
   RETURN .F.
ENDIF

RETURN .T.