proshut <dbname>
proshut -b <dbname>
proshut -bn <dbname>
proshut -by <dbname>
Function ListDBs($DBdir)
$filename = dir( $DBdir + "\*.lk")
while $filename <> "" and @error = 0
? " " + left($filename,len($filename) - 3 )
$filename = dir() ; retrieve next file
loop
EndFunction
Function DBactive($DBdir,$DBname)
if exist($DBdir + "\" + $DBname + ".lk")
$DBactive = "active"
else
$DBactive = "not active"
endif
EndFunction