‏windows 8

New member

525208400.gif

مكتية أكواد دوت نت VB.Net Code Liberality



اليوم سوف اشرح 5 عمليات على الملفات والمجلدات وهي 1- نسخ
2- قص
3- حذف
4- اعادة تسمية
5- التاكد من وجودها او لا
6- انشاء مجلد
نبدا بالشرح على بركة الله ونبدا مع الملفات

كود نسخ ملف وله اكثر من كواد

الكود الاول

كود:

FileCopy("C:\txtb.txt", "C:\sqebd\GHOST.txt")
الكود الثاني


كود:
My.Computer.FileSystem.CopyFile("C:\txtb.txt", "C:\sqebd\GHOST.txt")
الكود الثالث

كود:
            System.IO.File.copy("C:\txtb.txt", "C:\sqebd\GHOST.txt")
شرح




File copy

او

My.Computer.FileSystem.CopyFile

او

System.IO.File.Copy

جميعها يقصد بها نسخ ملف

------------------------------

"C:\txtb.txt"

هذا هو مسار الملف الذي نريد نسخه

---------------------------


"C:\sqebd\GHOST.txt"

هذا هو المسار الذي نريد النسخ عليه

ملاحظة لا تقيم بحذف " " بل ضع المسار بينها
:rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes::rolleyes:

2- كود قص ملف وايضا له اكثر من كود


الكود الاول


كود:
My.Computer.FileSystem.Movefile("C:\txtb.txt", "C:\sqebd\GHOST.txt")
الكود الثاني

كود:
     System.IO.File.Move("C:\txtb.txt", "C:\sqebd\GHOST.txt")
شرح
My.Computer.FileSystem.MoveFile

او

System.IO.File.Move

جميعها يقصد بها قص ملف

------------------------------

"C:\txtb.txt"

هذا هو مسار الملف الذي نريد قصه

---------------------------


"C:\sqebd\GHOST.txt"

هذا هو المسار الذي نريد القص عليه

ملاحظة لا تقيم بحذف " " بل ضع المسار بينها
128711483615.gif




كود حذف ملف وله اكثر من كواد

الكود الاول

كود:
كود:
DeleteFile("C:\txtb.txt")
الكود الثاني


كود:
My.Computer.FileSystem.DeleteFile("C:\txtb.txt")
الكود الثالث
كود:
             System.IO.File.delete("C:\txtb.txt")
شرح

DeleteFile

او

My.Computer.FileSystem.DeleteFile

او

System.IO.file.delete

جميعها يقصد بها نسخ ملف

------------------------------

"C:\txtb.txt"

هذا هو مسار الملف الذي نريد حذفه

---------------------------

ملاحظة لا تقيم بحذف " " بل ضع المسار بينها
128711483615.gif



4- اعادة تسمية الملفات

الكود
كود:
    My.Computer.FileSystem.renamefile("C:\txtb.txt", "sqebd.txt")
شرح

My.Computer.FileSystem.renameFile

يقصد بها اعدادة تسمية

------------------------------

"C:\txtb.txt"

هذا هو مسار الملف الذي نريد اعادة تسميته

---------------------------


"sqebd.txt"

هذا هو الاسم الجديد لملفك

ملاحظة لا تقيم بحذف " " بل ضع الاسم
128711483615.gif


5- التاكد من الملفات اذا كانت موجودة ام لا

الكود
كود:
            If My.Computer.FileSystem.FileExists("C:\txtb.txt") = True Then

            MessageBox.Show("الملف موجود بالفعل")
        Else
            MessageBox.Show("الملف غير موجود")

        End If
الشرح
في هذا الكود قمنا باستعمال قاعدة if

وهذه القاعدة عيارة عن شرط اذا كان هذا الشرط موجود او تحقق فسوف يقوم البرنامج باظهار رسالة او او .. حسب الكود البرمجي الذي سوف تكتبه

If

تعني (اذا )

-------------------------------------------------

My.Computer.FileSystem.FileExists

اذا كان الملف موجود

---------------------------

("C:\txtb.txt") = True

مسار الملف

اما = true تعني اذا كان موجود

= false تعني اذا كان غير موجود

-----------------------------

then

ثم

-------------------------------

messagebox.show ("الملف موجود بالفعل")

تعني اظهار رسالة تحتوي على ( الملف موجود بالفعل )

-------------------------------------


else

معناها اخر يعني اذا لم يحقق الشرط بالاعلى او حدث خطئ او الى ما ذلك

----------------------------------------------
MessageBox.Show("الملف غير موجود")

اظهار رسالة تقول ان الملف غير موجود

end if

اي انهي الجملة الشرطية واغلقها
128711483615.gif


الان نبدا بالمجلدات وللعلم ما تفرق كثير

كود نسخ ملف وله اكثر من كواد

الكود

كود:
    My.Computer.FileSystem.CopyDirectory("C:\txtb", "C:\sqebd\sqebd", True)
شرح


My.Computer.FileSystem.CopyDirectory


يقصد بها نسخ مجلد

------------------------------

"C:\txtb"

هذا هو مسار المجلد الذي نريد نسخه

---------------------------


"C:\sqebd\GHOST"

هذا هو المسار الذي نريد النسخ عليه

ملاحظة لا تقيم بحذف " " بل ضع المسار بينها

اما true تعني اذا كان الملف موجود ان تقوم باعادة الكتابة عليه

بامكانك تغييرها الى false حتى يحدث العكس
128711483615.gif


كود قص مجلد




كود:
    My.Computer.FileSystem.MoveDirectory("C:\txtb", "C:\sqebd\GHOST")
الكود الثاني



كود:
System.IO.Directory.Move("C:\txtb", "C:\sqebd\GHOST)
شرح


My.Computer.FileSystem.moveDirectory

او

System.IO.Directory.Move

يقصد بها قص مجلد

------------------------------

"C:\txtb"

هذا هو مسار المجلد الذي نريد قصه
---------------------------


"C:\sqebd\GHOST"

هذا هو المسار الذي نريد القص عليه

ملاحظة لا تقيم بحذف " " بل ضع المسار بينها
128711483615.gif




كود حذف مجلد

الكود الاول


كود:
System.IO.Directory.Delete("D:\c", true)
الكود الثاني
كود:
ينقسم الى اثنين


        My.Computer.FileSystem.DeleteDirectory("c:\ff.txt", FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)


        My.Computer.FileSystem.DeleteDirectory("c:\ff.txt", FileIO.DeleteDirectoryOption.DeleteAllContents)
شرح
System.IO.Directory.Delete

يقصد بها حذف المجلد

كما نلاحظ اكواد حذف المجلدات معقدة قليلا لذلك

سوف نبدا

System.IO.Directory.Delete("D:\c", true)

ويعني حذف المجلد وما فيه من ملفات

اما اذا كانت true مكانها false لن يحذف المجلد اذا كان فيه ملفات

-----------------------------------------------------------------------------

"D:\c" هنا تضع مسار المجلد

-------------------------------------------------------------------------------

ناتي للكود الثاني

طبعا

My.Computer.FileSystem.DeleteDirectory

تعني حذف مجلد

-----------------------------------------------

"c:\ff.txt"

المسار

------------------------------------------------

FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEm pty

فقط اذا كان الملف لا يحتوي على شيئ لا يقوم يحذفه

اما هذه

FileIO.DeleteDirectoryOption.DeleteAllContents

اذا كان الملف يحتوي على شيئ او لا يحتوي احذفه


ملاحظة لا تقيم بحذف " " بل ضع المسار بينها
128711483615.gif


4- اعادة تسمية المجلدات

الكود
كود:
     My.Computer.FileSystem.renamedirectory("C:\txtb", "sqebd")
شرح

My.Computer.FileSystem.renamedirectory

يقصد بها اعدادة تسمية

------------------------------

"C:\txtb"

هذا هو مسار المجلد الذي نريد اعادة تسميته

---------------------------


"sqebd"

هذا هو الاسم الجديد لمجلدك



ملاحظة لا تقيم بحذف " " بل ضع الاسم
[/INFO]

128711483615.gif


5- التاكد من الملفات اذا كانت موجودة ام لا

الكود
كود:
            If My.Computer.FileSystem.directoryExists("C:\txtb") = True Then

            MessageBox.Show("الملف موجود بالفعل")
        Else
            MessageBox.Show("الملف غير موجود")

        End If
شرحت if سابقا ولكن سوف اعيد


استعمال قاعدة if

وهذه القاعدة عيارة عن شرط اذا كان هذا الشرط موجود او تحقق فسوف يقوم البرنامج باظهار رسالة او.. حسب الكود البرمجي الذي سوف تكتبه

If

تعني (اذا )

-------------------------------------------------

My.Computer.FileSystem.directoryExists

اذا كان الملف موجود

---------------------------

("C:\txtb") = True

مسار الملف

اما = true تعني اذا كان موجود

= false تعني اذا كان غير موجود

-----------------------------

then

ثم

-------------------------------

messagebox.show ("الملف موجود بالفعل")

تعني اظهار رسالة تحتوي على ( الملف موجود بالفعل )

-------------------------------------


else

معناها اخر يعني اذا لم يحقق الشرط بالاعلى او حدث خطئ او الى ما ذلك

----------------------------------------------
MessageBox.Show("الملف غير موجود")

اظهار رسالة تقول ان الملف غير موجود

end if

اي انهي الجملة الشرطية واغلقها
128711483615.gif


6- انشاء مجلد جديد

الكود
كود:
          MkDir("C:\sqebd")
الكود الثاني

كود:
        MkDir("C:\sqebd")
الشرح
My.Computer.FileSystem.CreateDirectory

تعني انشاء مجلد

----------------------------------
"C:\GHOST"

مسار المجلد

و GHOST هو اسمه

------------------------------------------

الكود الثاني

mk اختصار لي make وتعني اصنع

dir اختصار لي Directory وتعني مجلد

------------------------------------


"C:\GHOST"

مسار المجلد

و GHOST هو اسمه
بعض الملاحظات

1- يمكنك عدم كتابة system.io في بداية الاكواد وذلك عن طريق الذهاب الى اول سطر في الفورم
وكتابة imports system.io وهمذا بامكانك كتابة الكود دون كتابة system.io في بدايته

2- هناك اكثر من صيغة واكثر من كود تاكد هذه ليست كلها
3- الامور ليست معقدة ولكن الشرح وثرة الاكواد جعلت الموضوع طويل
4- حاول استكشاف القائمة التي تخرج لك عند كتابة My.Computer.FileSystem في اغلب الاحيان سوف تحتاجها

واخيرا اتمنى ان يكون الموضوع قد نال اعجابكم

:SnipeR (63):​
 

التعديل الأخير بواسطة المشرف:

المواضيع المشابهة


رد: مكتية أكواد دوت نت VB.Net Code Liberary,شرح بعض العمليات المهمة على المجلدات والملفات

الله يعطيك الف عافية
 


رد: مكتية أكواد دوت نت VB.Net Code Liberary,شرح بعض العمليات المهمة على المجلدات والملفات

ابداع × ابداع واصل حبيب قلبي ولا تحرمنا من جديدك .. ~
 


رد: مكتية أكواد دوت نت VB.Net Code Liberary,شرح بعض العمليات المهمة على المجلدات والملفات

هوه ده الكلام ولا بلاش
شرح ممتاز واكواد ولا اروع
جزاك الله خير
وننتظر منك المزيد
 

عودة
أعلى