ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с размером папки!!!!!!
7 сообщений из 7, страница 1 из 1
Помогите с размером папки!!!!!!
    #34507584
Фарид2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фарид2003
Гость
Я нашел на форуме:

LOCAL lcFolder, loFSO, loFolder
lcFolder = 'С:\biblioteka'

loFSO=CreateObject('Scripting.FileSystemObject')
if loFSO.FolderExists(m.lcFolder)
loFolder=loFSO.GetFolder(m.lcFolder)
thisform.text1.value=ALLTRIM(STR(loFolder.Size))+ 'байт'


ENDIF

Но если способ на прописывать путь!!!!!!!!
lcFolder = '???????????'
...
Рейтинг: 0 / 0
06.05.2007, 12:51
| Ответить | Цитировать | Написать  
Помогите с размером папки!!!!!!
    #34508335
homik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
homik
Участник
HELP ---> GetDIR() - оч полезная функция
...
Рейтинг: 0 / 0
07.05.2007, 06:11
| Ответить | Цитировать | Написать  
Помогите с размером папки!!!!!!
    #34508586
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Фарид2003...
Но если способ на прописывать путь!!!!!!!!
lcFolder = '???????????'
Есть, только как прога догадается какую папку тебе надо?

Можно оформить этот код в отдельную функцию и как параметр передавать.
...
Рейтинг: 0 / 0
07.05.2007, 09:45
| Ответить | Цитировать | Написать  
Помогите с размером папки!!!!!!
    #34508750
Фарид2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фарид2003
Гость
Напиши пожалуйста!!!!!!!!!!!!
...
Рейтинг: 0 / 0
07.05.2007, 10:35
| Ответить | Цитировать | Написать  
Помогите с размером папки!!!!!!
    #34508884
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СА
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
LOCAL lcFolder, loFSO, loFolder

lcFolder = GETDIR("","","", 32 )

IF NOT EMPTY(lcFolder)
  loFSO=CreateObject('Scripting.FileSystemObject')
  IF loFSO.FolderExists(m.lcFolder)
    loFolder=loFSO.GetFolder(m.lcFolder)
    ?lcFolder
    ??' '+ALLTRIM(STR(loFolder.Size))+ ' байт'
  ENDIF
ELSE
    ? "Ничего не выбрано!!!"
ENDIF
...
Рейтинг: 0 / 0
07.05.2007, 11:10
| Ответить | Цитировать | Написать  
Помогите с размером папки!!!!!!
    #34509430
Фарид2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Фарид2003
Гость
Нет вы меня не поняли?????????
Эту команду я пишу при загрузки формы!!!!!!!!!!! И надо чтобы не выводилось окно с выбором папки!!!!!!!!!!
...
Рейтинг: 0 / 0
07.05.2007, 13:18
| Ответить | Цитировать | Написать  
Помогите с размером папки!!!!!!
    #34509483
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СА
Участник
Да-с!!!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
LOCAL lcFolder

lcFolder = GETDIR("","","", 32 )
?my_f1(lcFolder)


FUNCTION my_f1(lcFolder)
  LOCAL loFSO, loFolder, lcByte
  IF NOT EMPTY(lcFolder)
    loFSO=CreateObject('Scripting.FileSystemObject')
    IF loFSO.FolderExists(m.lcFolder)
      loFolder=loFSO.GetFolder(m.lcFolder)
      lcByte = lcFolder + ' ' + ALLTRIM(STR(loFolder.Size))+ ' байт'
    ENDIF
  ELSE
    lcByte = "Ничего не выбрано!!!"
  ENDIF
  RETURN lcByte
ENDFUNC
...
Рейтинг: 0 / 0
07.05.2007, 13:29
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с размером папки!!!!!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34507584&tid=1589393]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 134ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 198ms
total:  388ms
созд. / загр.: 388ms
x
x
Закрыть


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