🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104728

Re: VB.NET 2010 - pasek postepu.

#104728
From: InDesign Scripts
Date: Fri, 10 Dec 2010 08:59
23 lines
1828 bytes
> For Each fName As String In Directory.GetFiles(sourcePath)
>             If File.Exists(fName) Then
>                 Dim dFile As String = String.Empty
>                 dFile = Path.GetFileName(fName)
>                 Dim dFilePath As String = String.Empty
>                 dFilePath = DestinationPath + dFile
>                 File.Copy(fName, dFilePath, True)
>                 ProgressBar1.Value = y
>                 ProgressBar1.Refresh()
>                 y = y + x
>             End If
>         Next
> 
> Sprawa polega na tym, ze nie odswieza sie pasek postepu.
> Robilem juz rozne cuda i nic.
> Samo powyzsze kopiowanie trwa okolo 5 min, wiec przydal by sie dzialajacy
> progressbar, prawda?
> Jak to ugryzc?

a gdzie ustawiasz NOWĄ wartość "x"?
bo "x" to chyba ilość aktualnie skopiowanych danych/plików/etc.?

robin
Technical Details
Message-ID: <idsq5o$eto$1@inews.gazeta.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
References: <1wp0hao771gwp.mm72xd3qfyvt$.dlg@40tude.net>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: InDesign Scripts <indesignscripts@gazeta.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: VB.NET 2010 - pasek postepu.
Date: Fri, 10 Dec 2010 08:59:36 +0000
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 23
Message-ID: <idsq5o$eto$1@inews.gazeta.pl>
References: <1wp0hao771gwp.mm72xd3qfyvt$.dlg@40tude.net>
NNTP-Posting-Host: host86-148-219-32.range86-148.btcentralplus.com
Mime-Version: 1.0
X-Trace: inews.gazeta.pl 1291971576 15288 86.148.219.32 (10 Dec 2010 08:59:36 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Fri, 10 Dec 2010 08:59:36 +0000 (UTC)
X-User: indesignscripts
X-Antivirus: avast! (VPS 101209-1, 2010-12-09), Outbound message
In-Reply-To: <1wp0hao771gwp.mm72xd3qfyvt$.dlg@40tude.net>
X-Antivirus-Status: Clean
User-Agent: Thunderbird 2.0.0.24 (Windows/20100228)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit