VBNet - Форум

Вопрос: FSO Добавлено: 08.11.09 12:40

Автор вопроса: ηikolaŠ~rus | ICQ: 604058327

Здрасте
подскажите как сделать чтоб при в воде в тхт1.текст выводились данный о папке(тхт1.текст-имя папки)
Private Sub Form_Load()
Dim fso As New FileSystemObject, f As Folder

If fso.FolderExists("c:\111111") = True Then
Set f = fso.GetFolder("c:\111111")

Label1.Caption = "Файл создан:" & f.DateCreated

Label2.Caption = "Файл изменен: " & f.DateLastModified

Label3.Caption = "Файл открыт:" & f.DateLastAccessed

Label4.Caption = "Папка родич(т.е. та папка в которой эта папка находится): " & f.ParentFolder

Label5.Caption = "Путь: " & f.Path

Label6.Caption = "Размер: " & f.Size / 1024 '
Else
MsgBox "Такой папки не существует", 16, ""
End If
End Sub
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #1	Добавлено: 08.11.09 12:47
	я наверно не понятно написал мне надо чтоб имя папки не было 1111111 а было то которое я ввиду тхт1.текст и об этой папке он мне выводил данные Ответить

Номер ответа: 2 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| \| #2	Добавлено: 08.11.09 13:46
	Imports System.IO Public Class Form1 Dim SR As StreamReader Dim Str As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SR = New StreamReader("C:\1111111\1.txt") Str = SR.ReadLine SR.Close() My.Computer.FileSystem.RenameDirectory("C:\1111111", Str) End End Sub End Class Ответить

Номер ответа: 3 Автор ответа: UnDeAdZak Вопросов: 80 Ответов: 476	Профиль \| \| #3	Добавлено: 08.11.09 13:46
	Вот тока с русскими именами подглючивать будет( Ответить

Номер ответа: 4 Автор ответа: ηikolaŠ~rus ICQ: 604058327 Вопросов: 50 Ответов: 287	Профиль \| \| #4	Добавлено: 11.11.09 19:23
	cпасибо Ответить

Страница: 1 |