T A J P R O G Ҷумъа, 19.07.2019, 23:58
Приветствую Вас Гость | RSS
Меню сайта

Наш опрос
Ба сомонаи мо баҳо диҳед!
Ҷавобҳо ҳамагӣ: 581

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


 Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.Name)
Диданд: 124 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.DriveType)
Диданд: 130 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (1)

Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.DriveFormat)
Диданд: 133 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

 Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.AvailableFreeSpace / 1024 \ 
		... 
		
			Давомаш »
		
Диданд: 134 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

 Dim D() As IO.DriveInfo = IO.DriveInfo.GetDrives
        For Each DI As IO.DriveInfo In D
            
		... 
		
			Давомаш »
		
Диданд: 99 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

 My.Computer.FileSystem.
		... 
		
			Давомаш »
		
Диданд: 130 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

 Dim DirInfo As New IO.DirectoryInfo("C:\Dir")
        MsgBox(DirInfo.Name)
Диданд: 116 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

Dim DirInfo As New IO. ... Давомаш »

Диданд: 171 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

Dim D As Date ... Давомаш »

Диданд: 102 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

Dim Files() As String = IO.Directory.GetFiles("C:\Dir", "*.txt", IO.SearchOption.
		... 
		
			Давомаш »
		
Диданд: 112 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

Dim Folders() As String = IO.Directory.GetDirectories("C:\Dir", "*", IO.SearchOption.
		... 
		
			Давомаш »
		
Диданд: 123 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (1)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

               Dim x As List(Of String) = Search("G:\Itunes", "*.jpg")

    End Sub

 Private Function Search(ByVal path As String, ByVal mask As String) As List(Of String)

        Dim b As New List(Of String)

        Dim a As New List(Of String)

        Dim log As Integer = 0

        b.AddRange(IO.Directory.GetFiles(path, mask))

        a.AddRange(IO.Directory.GetDirectories(path))

        Do While a.Count <> 0

            'Application.DoEvents()

            'Me.Text = a.Count

  &nbs ... Давомаш »

Диданд: 146 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

Реклама

Поиск

Календарь
«  Май 2014  »
ДСЧПҶШЯ
   1234
567891011
12131415161718
19202122232425
262728293031

Архив записей

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.