17-10-12, 05:01 PM
كاتب الموضوع : 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")