progress bar while file move

Posted on 2006-06-28
Last Modified: 2013-12-25
hi every body

developing an application useing visuall basic 6 the programe is moving an audio file (.wav) from a workstation in my network to adirectory in the server
the problem is that when the user start moving the file by pressing move buttom the process take a long time and i need to inform him that the status of progress is 1% ....50% ect
i want to use the progress bar for doing so
thank in advance
Question by:bahamo
  • 6
  • 3
  • 2
LVL 13

Expert Comment

ID: 17000192

how do you copy the file?
because in that code you have to update the progress bar

Author Comment

ID: 17001937
yes not copying file but moveing file and my code is

FileCopy "c:\vbfiles\song1.wav", "c:\vbfiles\china\22.wav


Author Comment

ID: 17001997
i did not make any progress bar for that yet my code is

 A = MoveFile(TARGET.Text, dest1.Text)
If A Then
MsgBox "File moved!"
MsgBox "Error. File not moved!"
End If
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

LVL 13

Expert Comment

ID: 17002325

if you copy like that, it's not possible to have a progressbar....

you can however play an avi file of the filecopy,

find it in this path (default)
"c:\program files\microsoft visual studio\common\graphics\videos\file_copy.avi"


Author Comment

ID: 17002862
so to be able to use aprogress bar how can i change my code to use the bar

Author Comment

ID: 17003083
in fact i have idea that i want to translate into vb code :-
get the size of target wav file in byte  and while copying compare the target with destination wave file and keep on updateing the progress bar eatch time
LVL 13

Expert Comment

ID: 17003292

you mean somthing like this:

'first add a timer, then use this code:

Option Explicit
Dim fSize As Long
Dim progress As Byte '(0 to 100)
Dim fName As String

Private Sub Form_Load()
   fName = "C:\enquete_tabel.doc"
   fSize = FileLen(fName)
   Timer1.Interval = 50
   Timer1.Enabled = True
   'copy file code here
End Sub

Private Sub Timer1_Timer()
   progress = FileLen(fName) / fSize * 100
End Sub
LVL 17

Expert Comment

ID: 17007408
Copying via SHFileOperation() should show it's own progress notification:

Author Comment

ID: 17007612
and please can you show me how to use SHFileOperation() for moving files inever use this function before

Author Comment

ID: 17022722
o.k i will accept the answer from zzzzzooc  but before that i need to change the code in order to delete the wave file after copy to my dir becuase icant use it with move command
LVL 17

Accepted Solution

zzzzzooc earned 250 total points
ID: 17025302
In the example from the link I posted, change it to FO_MOVE and the source file will be deleted.

.wFunc = FO_COPY
.wFunc = FO_MOVE

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
DIR issue 7 54
Excel VBA combine two working workbooks 8 55
Exit a vb6 apps when a calling it apps closes 15 48
VBA - If Bookmark = "XXBOOKMARKXX" then 15 29
There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question