[ 파워빌더.파일 - 폴더 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!)

Posted by 농부지기
,