Вопрос № 96779: Уважаемые эксперты! Подскажите пожалуйста как можно посматреть данные файла, когда создань и в сколко часов?
Например, AUTOEXEC.BAT - 01,07,2007 - 04:15
Мне надо в text1.text=01,07,2007 - 04:15
Спасибо...
Вопрос № 96.779
Уважаемые эксперты! Подскажите пожалуйста как можно посматреть данные файла, когда создань и в сколко часов?
Отвечает: Werwy
Здравствуйте, Muhammedov Abdurohman!
Для того, чтобы просмотреть данные файла обычно используется функция FileDateTime. Параметр - полное имя файла (включая путь) в виде строки.
пример в приложении
Приложение:
--------- Слишком яркое солнце порождает пустыню
Ответ отправил: Werwy (статус: 2-ой класс)
Ответ отправлен: 31.07.2007, 06:13 Оценка за ответ: 4 Комментарий оценки: Спасибо. Но ответ пожти не правилный. Потаму что это возвращает посленный вызов файла а не дата создание.
Отвечает: PsySex
Здравствуйте, Muhammedov Abdurohman!
При помощи FSO. В references подключить Microsoft Scripting Runtime (scrrun.dll), код в приложении.
При помощи FSO также можно получить:
.DateLastAccessed - дата последнего доступа к файлу
.DateLastModified - дата последнего изменения файла
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 31.07.2007, 08:23 Оценка за ответ: 5 Комментарий оценки: Спасибо. Я сам и так думал
Отвечает: Черников Игорь Владимирович
Здравствуйте, Muhammedov Abdurohman!
Протестировано на VB6
Private Sub Form_Load()
Set O = CreateObject("Scripting.FileSystemObject")
Set objFile = O.GetFile("C:1.txt") 'Здесь впишите полный путь с названием файла
Text1.Text = "Date created: " & objFile.DateCreated
'Остальное можете выбрость, если не надо
MsgBox "Date last accessed: " & objFile.DateLastAccessed
MsgBox "Date last modified: " & objFile.DateLastModified
MsgBox "Drive: " & objFile.Drive
MsgBox "Name: " & objFile.Name
MsgBox "Parent folder: " & objFile.ParentFolder
MsgBox "Path: " & objFile.Path
MsgBox "Short name: " & objFile.ShortName
MsgBox "Short path: " & objFile.ShortPath
MsgBox "Size: " & objFile.Size
MsgBox "Type: " & objFile.Type
End Sub
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 3-ий класс)
Ответ отправлен: 31.07.2007, 19:55 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за полный ответ.
