파워빌더/파일관리

파워빌더.파일 - 폴더 size 구하기

농부지기 2017. 1. 26. 23:37

[ 파워빌더.파일 - 폴더 size 구하기  ]

 

 
String ls_f = "c:\test"Double 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_f) THEN
      FSO2 = FSO.GetFolder(ls_f)

      size = FSO2.Size

Else
      DESTROY FSO
      return
End if

DESTROY FSO2

SetPointer(Arrow!)