Jump to content

Please Wait Message while DirGetSize


Recommended Posts

Hi there - this is a first post for me, hopefully this is the correct location...

 

Trying to display a Please Wait message while DirGetSize completes.  Below is what I have, bu the ControlSetText window does not close.  Any help would be appreciated.

 
 MsgBox(0, "", "Click OK to calculate the size of your H: drive. The process may take a few minutes to complete.")
  
   SplashTextOn("Please wait", "Please wait while the size of your H: drive is being determined.  This may take a few minutes.", 480, 200, -1, -1, 4, "", 30)
   $vSize = DirGetSize("h:\temp")
  
do
      
    ControlSetText("Please wait", "", "Static1","Please wait while the size of your H: drive is being determined.  This may take a few minutes.")
 
   sleep(10)
 
Until not $vSize <> 0
Edited by Melba23
Added code tags
Link to comment
Share on other sites

  • Moderators

mcintoow,

As JohnOne has pointed out below, you have already been told where and how to post. Please do not make the same mistake a third time. :naughty:

M23

Edit: Completely rewritten in view of info below - thanks JohnOne. :thumbsup:

Edited by Melba23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

  • Moderators

mcintoow,

 

try to find the correct location to post

Both of your threads are now in the correct place - General Help and Support. ;)

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind

Open spoiler to see my UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Link to comment
Share on other sites

Found a work around.... 

MsgBox(0, "", "Click OK to calculate the size of your H: drive. The process may take a few minutes to complete.")
  
   SplashTextOn("Please wait", "Please wait while the size of your H: drive is being determined.  This may take a few minutes.", 480, 200, -1, 40, 4, "", 30)
   $vSize = 0
   $vSize = DirGetSize("h:\temp")
  
do
      
    ControlSetText("Please wait", "", "Static1","Please wait while the size of your H: drive is being determined.  This may take a few minutes.")
 $vSize2 = $vSize
   sleep(1)
 
Until $vSize = $vSize2

MsgBox(1, "", "The total size of your H: drive is " & round($vSize / 1024 /1024 /1024,2) & " GB.  Click OK to run a detailed report on your H: drive usage or cancel to end this process.")
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...