+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: Copy a File Quickly (/showthread.php?tid=1958)
Copy a File Quickly - Amin_Mansouri - 03-24-2012
با سورس کد زیر میتونید به سرعت فایلی رو کپی کنید در مقصد مورد نظرتون
Visual Basic is often seen as a tool to create front end GUI intensive applications. However, it can also easily be used to do lower level tasks such as quickly copying one file to another byte by byte. This code snippet demonstrates how you can easily take one file and copy it to a second one as quickly as possible. The way it does this is by pulling the whole file into memory and then writing it back out to the second file name.
This sample demonstrates some of VB's File IO operations such as Open, Get, and Put. It also demonstrates how you can declare a variable array and then change its size using the ReDim construct.
To implement this source code create a new VB6 program, add a button to the form, double click the button to get into its click event handler method, and add the following code within that method.
کد:
Dim mByte() As Byte
Open "C:\Command.com" For Binary As #1
Open "C:\Backup.com" For Binary As #2
ReDim mByte(0 To LOF(1))
Get #1, , mByte()
Put #2, , mByte()
Close #1
Close #2
MsgBox "Done", vbInformationRE: Copy a File Quickly - Kei armin - 03-24-2012
درود
دوستان اون ReDim جادو و تردستی نیست !!! با این می تونین یک آرایه رو که تعریف کردین دوباره تعداد آرایه هاشو تعریف کنین !
مثلا" نیاز دارین بیشترش کنین یا برای آزاد کردن رم می تونین اون مقدار آرایه رو که زیاد تعریف کردین کم کنین !
ضمنا" درنظر داشته باشین که فقط برای آرایه کاربرد داره و نه برای متغیر های معمولی !
azithromycin nitrofurantoin keppra nitrofurantoin vermox seroquel modafinil - jgreenlee - 09-24-2022
azithromycin ohne rezept kaufen azithromycin kaufen azithromycin kaufen schweiz
nitrofurantoin kaufen apotheke nitrofurantoin kaufen rezeptfrei nitrofurantoin kaufen apotheke deutschland
keppra bestellen ohne rezept levetiracetam 1000 mg kaufen levetiracetam ohne rezept
nitrofurantoin tabletten kaufen nitrofurantoin bestellen ohne rezept nitrofurantoin kaufen rezeptfrei
vermox bestellen ohne rezept vermox online kaufen ohne rezept vermox kaufen online
seroquel kaufen ohne rezept seroquel 5 mg seroquel rezeptfrei kaufen
modafinil kaufen deutschland ohne rezept modafinil ohne rezept bestellen modafinil online kaufen ohne rezept
lasix online kaufen lasix rezeptfrei bestellen lasix 40 mg rezeptfrei
meloxicam al 15 mg kaufen meloxicam kaufen ohne rezept meloxicam 7 5 mg rezeptfrei kaufen
maxalt 10 mg kaufen rizatriptan kaufen ohne rezept maxalt rezeptfrei