T A J P R O G Чоршанбе, 23.10.2019, 14:08
Приветствую Вас Гость | RSS
Меню сайта

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

Статистика

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


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

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

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

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

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

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

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

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

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 ... Давомаш »

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

Код VB.NET


TextBox1.Text = My.Computer.FileSystem.ReadAllText("Path", System.Text.Encoding.
		... 
		
			Давомаш »
		
Диданд: 13987 | Илова намуд: aplove | Сана: 01.05.2014 | Эзоҳот (29)

Код Visual Basic .NET

1

IO.Directory.Delete("C:\Dir", True)

 

 

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

« 1 2 3 4 5 6 »
Реклама

Поиск

Календарь
«  Октябр 2019  »
ДСЧПҶШЯ
 123456
78910111213
14151617181920
21222324252627
28293031

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

Друзья сайта

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