Fortschrittsbalken

  • VBScript

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von p41n.

    Fortschrittsbalken

    Hallo Zusammen,

    Ich stehe vor einem kleinen Problem, welches die Implementierung eines Fortschrittbalkens in die FileCopy Methode des FileSystemObjects betrifft.

    Ich nutze ein VBScript, um eine Datei über das Netzwerk zu kopieren. Wenn die Datei allerdings einige MB umfasst und die Performance des Netzwerkes etwas schlechter ist, kann es unter Umständen mehrere Sekunden/Minuten dauern, bis die Datei kopiert ist. In dieser Zeit tut sich auf dem Bildschirm jedoch nichts und der Anwender bleibt dem Fortschritt des Kopiervorgangs gegenüber im Unklaren.

    Ich würde nun gerne eine Möglichkeit nutzen, welche den Anwender über den aktuellen Status des Kopierens informiert. Im Netz konnte ich nichts finden. Für Javascript und CSS und VB fand ich genügend Beispiele. Nur für VBScript nicht.. Sowas muss es doch auch für VBS geben, oder etwa nicht?

    Von euch kann mir bestimmt jemand helfen, oder? ;)


    Viele Grüße
    p41n


    EDIT:
    Ich habe doch noch ein Beispiel gefunden. Allerdings scheitere ich an dem Versuch es mit dem FilesystemObject und der CopyFile Methode zu verknüpfen. So, dass der aktuelle Fortschritt des Kopierens angezeigt wird. Es würde mir auch schon reichen, wenn in einer MsgBox von 0% bis 100% gezählt wird. Wichtig ist, dass man über den aktuellen Status informiert ist.

    Und hier nun der Code, den ich fand:

    Visual Basic-Quellcode

    1. Class ProgressBar
    2. Private m_PercentComplete
    3. Private m_CurrentStep
    4. Private m_ProgressBar
    5. Private m_Title
    6. Private m_Text
    7. Private m_StatusBarText
    9. 'Initialize defaults
    10. Private Sub ProgessBar_Initialize
    11. m_PercentComplete = 0
    12. m_CurrentStep = 0
    13. m_Title = "Progress"
    14. m_Text = ""
    15. End Sub
    17. Public Function SetTitle(pTitle)
    18. m_Title = pTitle
    19. End Function
    21. Public Function SetText(pText)
    22. m_Text = pText
    23. End Function
    25. Public Function Update(percentComplete)
    26. m_PercentComplete = percentComplete
    27. UpdateProgressBar()
    28. End Function
    30. Public Function Show()
    31. Set m_ProgressBar = CreateObject("InternetExplorer.Application")
    32. 'in code, the colon acts as a line feed
    33. m_ProgressBar.navigate2 "about:blank" : m_ProgressBar.width = 315 : m_ProgressBar.height = 40 : m_ProgressBar.toolbar = false : m_ProgressBar.menubar = false : m_ProgressBar.statusbar = false : m_ProgressBar.visible = True
    34. m_ProgressBar.document.write "<body Scroll=no style='margin:0px;padding:0px;'><div style='text-align:center;'><span name='pc' id='pc'>0</span></div>"
    35. m_ProgressBar.document.write "<div id='statusbar' name='statusbar' style='border:1px solid blue;line-height:10px;height:10px;color:blue;'></div>"
    36. m_ProgressBar.document.write "<div style='text-align:center'><span id='text' name='text'></span></div>"
    37. End Function
    39. Public Function Close()
    40. m_ProgressBar.quit
    41. End Function
    43. Private Function UpdateProgressBar()
    44. If m_PercentComplete = 0 Then
    45. m_StatusBarText = ""
    46. End If
    47. For n = m_CurrentStep to m_PercentComplete - 1
    48. m_StatusBarText = m_StatusBarText & "|"
    49. m_ProgressBar.Document.GetElementById("statusbar").InnerHtml = m_StatusBarText
    50. m_ProgressBar.Document.title = n & "% Complete : " & m_Title
    51. m_ProgressBar.Document.GetElementById("pc").InnerHtml = n & "% Complete : " & m_Title
    52. wscript.sleep 10
    53. Next
    54. m_ProgressBar.Document.GetElementById("statusbar").InnerHtml = m_StatusBarText
    55. m_ProgressBar.Document.title = m_PercentComplete & "% Complete : " & m_Title
    56. m_ProgressBar.Document.GetElementById("pc").InnerHtml = m_PercentComplete & "% Complete : " & m_Title
    57. m_ProgressBar.Document.GetElementById("text").InnerHtml = m_Text
    58. m_CurrentStep = m_PercentComplete
    59. End Function
    61. End Class
    64. 'Declare progressbar and percentage complete
    65. Dim pb
    66. Dim percentComplete
    67. 'Setup the initial progress bar
    68. Set pb = New ProgressBar
    69. percentComplete = 0
    70. pb.SetTitle("Step 1 of 5")
    71. pb.SetText("Copying bin/Debug Folder")
    72. pb.Show()
    74. 'Loop to update the percent complete of the progress bar
    75. 'Just add the pb.Update in your code to update the bar
    76. 'Text can be updated as well by pb.SetText
    77. Do While percentComplete <= 100
    78. wscript.sleep 500
    79. pb.Update(percentComplete)
    80. percentComplete = percentComplete + 10
    81. Loop
    82. wscript.sleep 3000
    84. 'This shows how you can use the code for multiple steps
    85. 'In a future iteration I will add a second bar to measure overall progress
    86. percentComplete = 0
    87. pb.SetTitle("Step 2 of 5")
    88. pb.SetText("Copying bin/Release Folder")
    89. pb.Update(percentComplete)
    90. Do While percentComplete <= 100
    91. wscript.sleep 500
    92. pb.Update(percentComplete)
    93. percentComplete = percentComplete + 10
    94. Loop
    95. pb.Close()
    96. wscript.quit

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „p41n“ ()

    Hi petaod,

    Danke für den Tipp.. Habe mich auch sogleich daran gemacht und nach den entsprechenden Begriffen gesucht. Allerdings waren die Ergebnisse ernüchternd. Kann es sein, dass die von Dir genannten Methoden nur für Visual BAsic sind? Unter VBScript scheinen die nicht zu funktionieren. Oder ich verstehe es nur einfach nicht.

    Hättest Du vielleicht ein Beispiel, um mir das ganze mal genau zu erläutern?


    Grüße
    p41n

    Ich fürchte du hast recht.
    Mit VBS scheint das wohl nicht zu funktionieren :(

    Dann fällt mir auch keine elegante Lösung ein.

    Hier hat mal jemand einen sehr rudimentären ProgressBar in VBS gebastelt.
    Aber so richtig sexy ist das Anzeigeverfahren mittels WshShell.Popup nicht.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    In etwa so:

    Visual Basic-Quellcode

    1. Const FOF_CREATEPROGRESSDLG = &H0&
    2. dim QuellDatei, ZielOrdner
    4. QuellDatei="J:\Downloads\Windows8-ConsumerPreview-64bit-German.iso"
    5. ZielOrdner= "g:\temp"
    7. Set objShell = CreateObject("Shell.Application")
    8. Set objFolder = objShell.NameSpace(ZielOrdner)
    10. objFolder.CopyHere Quelldatei, FOF_CREATEPROGRESSDLG
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    peterfido schrieb:

    In etwa so:

    Visual Basic-Quellcode

    1. Const FOF_CREATEPROGRESSDLG = &H0&
    2. dim QuellDatei, ZielOrdner
    4. QuellDatei="J:\Downloads\Windows8-ConsumerPreview-64bit-German.iso"
    5. ZielOrdner= "g:\temp"
    7. Set objShell = CreateObject("Shell.Application")
    8. Set objFolder = objShell.NameSpace(ZielOrdner)
    10. objFolder.CopyHere Quelldatei, FOF_CREATEPROGRESSDLG

    Wahnsinn.. Geil! Du bist einfach göttlich, peterfido.. :thumbsup:

    Genau das war das, was ich nun schon seit mehreren Wochen suche.
    Richtig genial. Vor allen Dingen.. So verdammt einfach!

    Manchmal sieht man den Wald vor lauter Bäumen nicht und denkt zu kompliziert.

    Suuuper.. Ich kann mich einfach nur immer wieder bedanken bei Dir. *freu* :thumbup:

    Ich würde den Hilfreich-Button sogar 10x klicken, wenn es möglich wäre. :D

    Also nochmal Danke Danke..
    Du bist absofort mein persönlicher Held.. *peterfidoanbet* :D


    Grüße
    p41n


    Edit:
    Man muss nur wissen, wonach man zu suchen hat und schon wird man direkt fündig.
    Für nähere Information, sei jedem der folgende MS-Artikel ans Herz gelegt:
    technet.microsoft.com/en-us/library/ee176633

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „p41n“ ()

Facebook
Telefonspende