Pseudo-progressbar dans une application de ligne de commande lors de la copie d'un fichier
Envoyé le 28/11/2023 à 18:14:33 par vuottVoici un exemple pratique, dans lequel la progression en pourcentage de la copie d'un fichier sera affichée. A la fin, le temps nécessaire sera également affiché. [code]Private Const LONGUEUR As Byte = 50 Public Sub Main() Dim fl1, fl2 As File Dim b, c As Byte Dim k As Integer Dim orig, kp, s As String Dim tmp As Date orig = "/Chemin/du/fichier/à/copier" ' Chemin vers lequel le fichier doit être copié: kp = "/tmp/copie." & File.Ext(orig) fl1 = Open kp For Create fl2 = Open orig For Read k = (Lof(fl2) \ 100) c = 100 \ LONGUEUR tmp = Now ...