+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : Directories (/showthread.php?tid=5064)
Directories - Abu Ehab - 04-10-12
Directories In VB.Net
أولا يلــــــزمنا أن نستدعي IO
في
NameSpace
PHP كود :
Imports System.IO
Create Directory
PHP كود :
Directory.CreateDirectory("F:\Abu Ehab")
Delete Directory
يجـــب التنبــــــيه قبـــــل الحــــذف دائمــــــــا
PHP كود :
If MsgBox("Delete", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
Directory.Delete("F:\Abu Ehab")
End If
Get Directories
لأدراج جميع المجــــلدات في اللست بكس
PHP كود :
Dim Ste() As String
Dim I As Integer
Ste = Directory.GetDirectories("F:\")
For I = 0 To Ste.Length - 1
ListBox1.Items.Add(Ste(I))
Next
يتبـــــــــع
Directories - Abu Ehab - 04-10-12
[h=2][/h] [INDENT] للبحـــــــث عن المجـلدات بأول حرف في تسميتها
PHP كود :
Dim A() As String
Dim J As Integer
ListBox1.Items.Clear()
A = Directory.GetDirectories("F:\", "K*")
For J = 0 To A.Length - 1
ListBox1.Items.Add(A(J))
Next
Directories - Abu Ehab - 04-10-12
لمعـــــرفـــــــة هــــل المجــلد موجــــــود أم لا :
PHP كود :
Dim D As String
D = MsgBox(Directory.Exists("F:\Abu Ehab"))
النتيجـــــــة : True Or False
Directories - Abu Ehab - 04-10-12
نســـخ مجــلد الى مجلد أخر
PHP كود :
My.Computer.FileSystem.CopyDirectory("C:\TestDirectory1", "C:\TestDirectory2", True)
Directories - Abu Ehab - 04-10-12
حــذف جميـــع الملفات في المجــــلد بالكامل .
PHP كود :
For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
My.Computer.FileSystem.SpecialDirectories.MyDocuments, _
FileIO.SearchOption.SearchAllSubDirectories, "*.*")
My.Computer.FileSystem.DeleteFile(foundFile, _
FileIO.UIOption.AllDialogs, _
FileIO.RecycleOption.DeletePermanently)
Next
Move Directory
PHP كود :
My.Computer.FileSystem.MoveDirectory("C:\Dir1", "C:\Dir2")
PHP كود :
My.Computer.FileSystem.MoveDirectory("C:\Dir1", "C:\Dir2", True)
Directories - Abu Ehab - 04-10-12
أنشــــــاء مـــــــلف
PHP كود :
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
File.Create("F:\MyTFile.txt")
End Sub
End Class
أخـــــــفاء مــــــــلف :
PHP كود :
My.Computer.FileSystem.GetFileInfo("F:\MyFile.txt").Attributes = IO.FileAttributes.System Xor FileAttributes.Hidden
Directories - Abu Ehab - 04-10-12
[h=2][/h] [INDENT] أظهـــــــار المـــــــــلف :
PHP كود :
My.Computer.FileSystem.GetFileInfo("F:\MyFile.txt").Attributes = IO.FileAttributes.System Xor FileAttributes.Normal
[/INDENT]
Directories - Abu Ehab - 04-10-12
تغييــــــر أسم مــــــــلف :
PHP كود :
Imports System.IO
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My.Computer.FileSystem.RenameFile("E:\X.txt", "SecondTest.txt")
End Sub
End Class
RE: Directories - nani49 - 13-02-16
يعطيك العافية اخي