파워빌더.파일 - 폴더

[ 파워빌더.파일 - 폴더 ]

 

String ls_folder = "c:\edu" Double ldo_folder_size Long ll_result 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  MessageBox('', ldo_folder_size) Else  DESTROY FSO  return End if   DESTROY FSO2 SetPointer(Arrow!)