هلا
انا عندي سؤال بخصوص FileCopy
و اتسائل كيف يمكنني ان انسخ الملف من خلال هذه الدالة بدون كتابة اسمه مثلا:
لو كان اسم الملف project.exe
و اريده ان ينسخ نفسه: FileCopy("هنا لا اريد ان اكتب اسم الملف" , "C:\projects\"project.exe")
مثلا اوامر الدوس :
copy 0% c:\projects\project.exe
حيث 0% هو الملف نفسه
ان شاء الله اكون وصلت الفكرة و محتاج مساعدو
و شكرا
احياتي
ادم
إستخدم
MsgBox(Application.ExecutablePath)
السلام عليكم ورحمه الله وبركاته
اخي يمكنك استخدام الكود التالي
FileCopy(My.Application.Info.Title & ".exe", "Test.exe")
.:: Wish to become better and better ::.
شكرا اخواني الاعزاء على مساعداتكم الرائعة ! :)
و لكن لدي سؤالين اضافيين و هم التالي:
سؤال رقم 1:
كيف اقوم باخفاء اي ملف باستعمال فيجوال بيسك .NET 2005؟
سؤال رقم 2:
كيف اقوم باستدعاء ملف موجود في القرص الصلب(HardDisk) و افتحه باستعمال فيجوال بيسك؟
مثلا في الدوس نقوم باستعمال Call و انا اريد ان استدعيه بكتابة مساره و افتحه .
على كل حال اشكركم على ردودكم
تحياتي
ادم
اقتباسانا عندي سؤال بخصوص FileCopyو اتسائل كيف يمكنني ان انسخ الملف من خلال هذه الدالة بدون كتابة اسمه
IO.File.Copy(Application.ExecutablePath, "C:\" & IO.Path.GetFileName(Application.ExecutablePath), True)
اقتباسكيف اقوم باخفاء اي ملف باستعمال فيجوال بيسك .NET 2005؟
IO.File.SetAttributes("c:\MyFile.txt", IO.FileAttributes.Hidden)اقتباسكيف اقوم باستدعاء ملف موجود في القرص الصلب(HardDisk) و افتحه باستعمال فيجوال بيسك؟
Process.Start("c:\MyFile.txt")تم تعديل هذه المشاركة بواسطة GHOST2010 في 1 يوليو 2011 في 17:46
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
السلام عليكم ورحمه الله وبركاته
اخي يمكنك اخفاء ملف بالصوره التاليه
ويمكنك فتح ملف باستخدام الاجراء Shell جرب الكود التالي
Shell("Calc.exe").:: Wish to become better and better ::.
السلام عليم..
شكرا على ردودكم
تحياتي
السلام عليكم ورحمه الله وبركاته
لاشكر على واجب اخي .. بالتوفيق ..
.:: Wish to become better and better ::.