تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Directories
#1



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 

يتبـــــــــع




Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#2
[h=2][/h] [INDENT] للبحـــــــث عن المجـلدات بأول حرف في تسميتها
PHP كود :
Dim A() As String
        Dim J 
As Integer
        ListBox1
.Items.Clear()
        
Directory.GetDirectories("F:\", "K*")
        For J = 0 To A.Length - 1
            ListBox1.Items.Add(A(J))
        Next 
[/INDENT]

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#3
لمعـــــرفـــــــة هــــل المجــلد موجــــــود أم لا :
PHP كود :
Dim D As String
        D 
MsgBox(Directory.Exists("F:\Abu Ehab")) 



النتيجـــــــة : True Or False


Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#4
نســـخ مجــلد الى مجلد أخر
PHP كود :
My.Computer.FileSystem.CopyDirectory("C:\TestDirectory1""C:\TestDirectory2"True

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#5
حــذف جميـــع الملفات في المجــــلد بالكامل .
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

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#6
أنشــــــاء مـــــــلف
PHP كود :
Imports System.IO

Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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 

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#7
[h=2][/h] [INDENT] أظهـــــــار المـــــــــلف :
PHP كود :
My.Computer.FileSystem.GetFileInfo("F:\MyFile.txt").Attributes IO.FileAttributes.System Xor FileAttributes.Normal 




[/INDENT]

Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#8
تغييــــــر أسم مــــــــلف :
PHP كود :
Imports System.IO
Public Class Form1

    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        My
.Computer.FileSystem.RenameFile("E:\X.txt""SecondTest.txt")
    
End Sub
End 
Class 



Abu Ehab : Microsoft Partner  & Systems Developer
الرد }}}}
تم الشكر بواسطة:
#9
يعطيك العافية اخي
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم