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

[‏windows 8]

مكتية أكواد دوت نت 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"

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

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

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"

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

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

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

الكود الاول

كود:

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"

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

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

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

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

الكود

    My.Computer.FileSystem.renamefile("C:\txtb.txt", "sqebd.txt")

شرح

My.Computer.FileSystem.renameFile

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

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

"C:\txtb.txt"

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

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


"sqebd.txt"

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

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

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

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

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

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

الكود

    My.Computer.FileSystem.CopyDirectory("C:\txtb", "C:\sqebd\sqebd", True)

شرح

My.Computer.FileSystem.CopyDirectory


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

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

"C:\txtb"

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

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


"C:\sqebd\GHOST"

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

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

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

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

كود قص مجلد

    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"

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

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

كود حذف مجلد

الكود الاول

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

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


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

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

الكود

     My.Computer.FileSystem.renamedirectory("C:\txtb", "sqebd")

شرح

My.Computer.FileSystem.renamedirectory

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

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

"C:\txtb"

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

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


"sqebd"

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



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

[/INFO]

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

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

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):​

 

[Virus!Clown]

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

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

 

[NapsTer]

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

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

 

[ali.alfoly]

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

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