[RaggiTech]

كاتب الموضوع : AhmedEssawy

معرفة هل الملف موجود :

كود :

Dim fileExists As Boolean
fileExists = My.Computer.FileSystem.FileExists("C:\Test.txt")

معرفة هل المجلد موجود :

كود :

Dim folderExists As Boolean
folderExists = My.Computer.FileSystem.DirectoryExists("C:\TestDirectory")

معرفة مساحة الملف :

كود :

Dim fileSize As Long
fileSize = My.Computer.FileSystem.GetFileInfo("filename.txt").Length

البحث عن ملف :

كود :

Dim files As ReadOnlyCollection(Of String)
files = My.Computer.FileSystem.GetFiles("C:\", True, "*.txt")

وللبحث بجزء من النص داخل الملف :

كود :

Dim files As ReadOnlyCollection(Of String)
files = My.Computer.FileSystem.FindInFiles("C:\", "Text To Search For", True, FileIO.SearchOption.SearchAllSubDirectories, "*.txt")