개발 참고자료

String ls_folder = "c:\temp"
Double ldo_folder_size

OLEObject FSO, FSO2

FSO = CREATE OLEObject

SetPointer(Hourglass!)

ll_result = FSO.ConnectToNewObject("Scripting.FileSystemObject")
IF ll_result <> 0 THEN
messagebox('error',ll_result)
DESTROY FSO
SetPointer(Arrow!)
return
END IF

IF FSO.FolderExists(ls_folder) THEN
FSO2 = FSO.GetFolder(ls_folder)
ldo_folder_size = FSO2.Size
Else
DESTROY FSO
return
End if

DESTROY FSO2

SetPointer(Arrow!)