Some simple programs in Visual Basic 6 Part 5

تكملة بعض البرامج البسيطة فى الفيجوال بيسك 6

تصميم برنامج لنسخ الملفات

بعد الدخول للبرنامج

اضف عبر Ctrl+t

Microsoft Common Dialog Control 6.0

   اضف 2 تكست بوكس و2 كوماند على الشكل التالي                

الكود 

نضع هذا الكود فى زرار المكان

( المقصود منة ان يختار المكان اللى هنسخ فية ) 

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

CommonDialog1.ShowSave

Text2.Text = CommonDialog1.FileName

نضع هذا الكود فى زرار انسخ 

FileCopy Text1.Text, Text2.Text