Printable View
سلام
دوستان به کدی که نوشتم نگاه کنید مشکل این کد چیه که وقتی ProgressBar
پر میشه خطا میده .
-----------------------کد:Dim f As New System.IO.FileInfo("D:\Program\test.exe")
Dim len As Long = f.Length
ProgressBar1.Value = 1
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = f.Length
ProgressBar1.Step = 1
Dim i As Integer
For i = 1 To len - 1
If ProgressBar1.Value < len Then
ProgressBar1.Value += 10
End If
Next i
سلام دوست عزیز....
واضح است که با پیش رفت حلقه مقدا Value از مقدار Maximum بیشتر میشود.
مقدار Value همواره باید بین Minimum و Maximum باشد.
این عدد 10 عزیزتان کار را خراب میکند!
سلام خدمت استاد عزیز h2
ممنون بابت پاسخی که دادین
کد بالا را تبدیل به این کد کردم خوب جواب داد .
البته حس میکنم زیاد بهینه نباشه نظر شما رو میخواستم بدونم از همین روش استفاده کنم ؟
این رو هم بگم قصد من فقط کپی بانک access از ادرسی به ادرس دیگر است (backup
کد:ProgressBar1.Value = 1
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10
ProgressBar1.Step = 10
Dim i As Integer
For i = 0 To 10
ProgressBar1.Value = i
Application.DoEvents()
FileCopy(a, b)
Next i
سلام
آخه اینکه شما نوشته اید که یک if ساده است و من درست درکش نمیکنمنقل قول:
البته حس میکنم زیاد بهینه نباشه نظر شما رو میخواستم بدونم از همین روش استفاده کنم ؟
ولی ...
اگر میخواهید یک تک فایل را کپی کنید...نقل قول:
این رو هم بگم قصد من فقط کپی بانک access از ادرسی به ادرس دیگر است
میتوانید از دیالگو خود سیستم عامل هم استفاده کنید...
ولی اگر تمایل به کپی دستی و نشان دادن روند پیشرفت در برنامه دارید...
- فایل منبع و مقصد را به صورت Stream باز کنید.
- حجم فایل منبع را برابر Max نوار پیشرفت قرار دهید
- از فایل منبع در بلوک های مشخص (مثلاً 64KB) اطلاعات را بخوانید و در فایل مقصد بریزید
- Value نوار پیشرفت را هم با آفست پرشده فایل مقصد تغذیه کنید.
(ضمنا الآن دیگر چندان از DoEvents استفاده نمیککند..)
موفق باشید.
سلام خدمت H2 عزیز .
به طور مثال وقتی یه فایل 500 مگابایتی در حال کپی شدن usage سی پی یو میره رو 50 %نقل قول:
آخه اینکه شما نوشته اید که یک if ساده است و من درست درکش نمیکنم
نا زمانی که حلقه کاره خودش رو تموم کنه .
منظور شما این که از توابع API استفاده کنم ؟نقل قول:
میتوانید از دیالگو خود سیستم عامل هم استفاده کنید...
ممنون بابت توضیحات.
سلام
در ضمینه کد شما من یک ایهام دارم .... !
برداشت میکنم که یک فایل قرار است کپی شود.نقل قول:
این رو هم بگم قصد من فقط کپی بانک access از ادرسی به ادرس دیگر است
برداشت میکنم که چند فایل قرار است کپی شود!نقل قول:
For i = 0 To 10
FileCopy(a, b)
آیا منظورتان از FileCopy همان تابع قدیمی VB6 است؟
راستی بدانید که این تابع در VB.Net در واقع System.IO.File.Copy را اجرا میکند.
بالاخره مشکل سر یک فایل است یا چند فایل؟
بله.نقل قول:
منظور شما این که از توابع API استفاده کنم ؟
البته خود تابع System.IO.File.Copy هم از CopyFile استفاده میکند ولی این api دیالوگ و شمای دیداری برای کپی ندارد.
در مقابل SHFileOperation اینکار را مثل داخل خود MyComputer انجام میدهد، یعنی دقیقاً مثل زمانی که در خود ویندوز فرمان کپی بدهید، با همان دیالوگها و تاییدیه Replace و...
سلامنقل قول:
در ضمینه کد شما من یک ایهام دارم .... !
این کل کدی است که نوشته ام.
فقط یک فایل قرار کپی شود ! .
کد:Dim f1, f2 As String
Dim count As String
ProgressBar1.Value = 0
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 10
With SaveFileDialog1
.Title = "مسیر فایل پشتیبان را انتخاب کنید"
.Filter = "Data Base Backup (*.mdb)|*.mdb"
.FileName = "123.mdb"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
f1 = System.Windows.Forms.Application.StartupPath + "\123.mdb"
f2 = .FileName
For i As Integer = 0 To 10
ProgressBar1.Value = i
count = i * 10
label1.text= Convert.ToString(count) & "%"
Application.DoEvents()
FileCopy(f1, f2)
Next i
MessageBox.Show("فایل پشتیبان از بانک اطلاعاتی با موفقیت ایجاد شد", "پشتیبان", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
End If
End With
بله از همان توابعی که در VB6 خدا بیامرز بود. که در دات نت یک متد است .نقل قول:
آیا منظورتان از FileCopy همان تابع قدیمی VB6 است؟[
من ابتدا از این فضا استفاده کردم ولی موقع Replace شدن به مشکل بر میخورد برا خدم هم خیلی عجیب بود :18:نقل قول:
راستی بدانید که این تابع در VB.Net در واقع System.IO.File.Copy را اجرا میکند.
که امدم از System.IO.File.Replace هم استفاده کردم بازم نشد . ولی وقتی از متد FileCopy استفاده کردم
بدون مشکل کار میکرد.
-------------------------------------------------------------------
فقط تنها مشکلی که در حال حاضر دارم اگه این فایلی که قرار کپی بشه حجمش بره بالا مثلا 100 مگ
usage سی پی یو میره رو 50 %
نا زمانی که حلقه کاره خودش رو تموم کنه .
که فکر کنم این کار اصلا بهینه نیست !!!
سلام
:18::blink::32::3::19::22::37::blink:نقل قول:
فقط یک فایل قرار کپی شود
میبخشید ولی شما متوجه هستید چه کدی نوشته اید؟
شما 10 بار مجزا دارید f1 را به محل f2 کپی و Replace میکنید! این که نوار پیشرفت نمیشود!!!
یعنی نوار پیشرفت شما هر بار یک خانه به جلو میرود در واقع یکبار فایل کپی شده و تمام شده!
شما در قبال کپی یک فایل 500M در واقع یک فرآینده کپی 5G را استارت میکنید. :11:
! ! ! ! !
من هم به شدت موافق هستم!نقل قول:
که فکر کنم این کار اصلا بهینه نیست !!!
دو دستور زیر برابر هستند ! ! !نقل قول:
من ابتدا از این فضا استفاده کردم ولی موقع Replace شدن به مشکل بر میخورد برا خدم هم خیلی عجیب بود
که امدم از System.IO.File.Replace هم استفاده کردم بازم نشد . ولی وقتی از متد FileCopy استفاده کردم
و در واقع اولی خودش دومی ا اجرا میکند.کد:Microsoft.VisualBasic.FileSystem.FileCopy(f1, f2)
System.IO.File.Copy(f1, f2, True)
کد پیشنهادی تشریح شده در پست 4
کد:Public Shared Sub FileCopy(ByVal source As String, ByVal destin As String, ByVal pb As System.Windows.Forms.ProgressBar)
Const BUFFERSIZE As Integer = 128 * 1024
If (System.IO.File.Exists(destin)) Then
System.IO.File.Delete(destin)
End If
pb.Minimum = 0
pb.Maximum = 100
Using _
strm_s As New System.IO.FileStream(source, System.IO.FileMode.Open, System.IO.FileAccess.Read), _
strm_d As New System.IO.FileStream(destin, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
Dim max100 As Single = 100.0F / strm_s.Length
Dim buffer(BUFFERSIZE - 1) As Byte
Dim iRead As Integer
While (True)
iRead = strm_s.Read(buffer, 0, BUFFERSIZE)
If (iRead <= 0) Then Exit While
strm_d.Write(buffer, 0, iRead)
pb.Value = CInt(max100 * strm_d.Position)
End While
'pb.Value = pb.Maximum
End Using
End Sub
در صورت تمایل میتوانید از چند ریسمانی هم استفاده کنید.
موفق باشید.
سلام خدمت استاد عزیز H2
من که همون اول گفتم اصلا کد بهینه ای نیست !!!:31:نقل قول:
میبخشید ولی شما متوجه هستید چه کدی نوشته اید؟
شما 10 بار مجزا دارید f1 را به محل f2 کپی و Replace میکنید! این که نوار پیشرفت نمیشود!!!
یعنی نوار پیشرفت شما هر بار یک خانه به جلو میرود در واقع یکبار فایل کپی شده و تمام شده!
شما در قبال کپی یک فایل 500M در واقع یک فرآینده کپی 5G را استارت میکنید.
نمیدونستم پارامتر دیگری برای overwrite کردن داره ( جلل خالق :31:)نقل قول:
کد:System.IO.File.Copy(f1, f2, True)
خیلی ممنون بابت سورس کدی که پیشنهاد کردین و نوشتین . :11:
:18:
اين همه كد براي كپي كردن 1 فايل؟
مگه BackGroundWorker چه مشكلي داره؟
سلام
اگر ایشان نمیخواستند از دستورات فوق استفاده کنند، باید از همان File.Copy استفاده میکردند.نقل قول:
متد File.Copy هم فقط یک خط ناقابل است!!! و هیچ ساپورتی برای میله پیشرفت و درصد کپی ندارد.
مجموعه دستورات فوق میتواند در هر لحظه نوار پیشرفت را آپدیت کند و کاربر را از میزان کپی شده مطلع کند.
همانطور که اشاره کرده بودم، دستورات فوق هم بهتر است با چند ریسمانی اجرا شود و BackgroundWorker هم یکی از راه های پیاده سازی چند ریسمانی در دات نت ولی این مسئله ربطی به نوار پیشرفت و ProgressBar ندارد.نقل قول: