- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
Imports System
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
Windows Form Designer generated code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Folder As Directory' Объявляем переменную Folder для работы с папками
Files = Folder.GetFiles("c:")' В массив Files записываются все файлы содержащиеся в диске C:
For i = 0 To Files.Length - 1
Label1.Text = Label1.Text & Files(i) & vbCrLf'
Next i
End Sub
End Class
Lure Of Chaos 02.12.2013 02:57 # +3
слишком толсто даже для тебя
Stertor 02.12.2013 09:44 # 0
туповато как-то. Пусть поставят еще 1 минус - и я минусну топик.
>> даже для тебя
сочту за личное оскорбление.
Stertor 02.12.2013 13:52 # −3