Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подсчет размера файлов / 6 сообщений из 6, страница 1 из 1
26.08.2003, 14:22
    #32247603
kulki
kulki
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет размера файлов
Коллеги
появилась потребность считать сколько каждый юзверь на сервере данных хранит, хочу сделать на Access
Подскажите куда копать(что за функции VBA использовать)- как получить список всех файлов в папках и как с файла получить атрибут - владелец, размер
Естественно все будет кидаться в табличку, а из табличку буду выводить в формочку
Или может каким нить c:>dir /cуперключ > charge.txt и уже этот файл на импорт в Access ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2003, 14:38
    #32247626
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет размера файлов
Уря! Теперь на аксесе еще и систему квотирования будут писать! А я то думал что для этого NTFS 5.0 надоть

что за функции VBA использовать
Список файлов и размер - Dir и FileLen
Еще лучше - использовать библиотеку Microsoft Scripting Runtime
А владельца ты устанешь получать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2003, 14:40
    #32247634
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет размера файлов
Список файлов из папки:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Set fs = Application.FileSearch
With fs
    .LookIn =  "Твоя папка" 
    .FileName =  "*.*" 
    If .Execute >  0  Then
        For i =  1  To .FoundFiles.Count
            Msgbox (.FoundFiles(i))
        Next
    End If
End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2003, 14:44
    #32247641
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет размера файлов
Размер файла:
Код: plaintext
1.
2.
3.
4.
5.
6.
Function File_Size()
    Dim fs, f, s
    Set fs = CreateObject( "Scripting.FileSystemObject" )
    Set f = fs.getFile( "D:\Temp\Пример.txt" )
    s = UCase(f.Name) &  " uses "  & f.Size &  " bytes." 
    MsgBox s,  0 ,  "Folder Size Info" 
End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2003, 14:47
    #32247643
Sfagnum
Sfagnum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет размера файлов
на API посоветую FindFirstFile, FindNextFile, FindClose - для поиска
GetFileSize - размер
GetFileInformationByHandle - общая инфа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2003, 14:47
    #32247645
RVI
RVI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подсчет размера файлов
Ну, а владельца действительно устанешь получать !!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подсчет размера файлов / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 339ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1679731]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 225ms
total:  339ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]