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

Можно оформить этот код в отдельную функцию и как параметр передавать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2007, 10:35
    #34508750
Фарид2003
Фарид2003
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с размером папки!!!!!!
Напиши пожалуйста!!!!!!!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2007, 11:10
    #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, 13:18
    #34509430
Фарид2003
Фарид2003
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите с размером папки!!!!!!
Нет вы меня не поняли?????????
Эту команду я пишу при загрузки формы!!!!!!!!!!! И надо чтобы не выводилось окно с выбором папки!!!!!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.05.2007, 13:29
    #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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите с размером папки!!!!!! / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 386ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1589393]:
 0ms
get settings:
 4ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 136ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 195ms
total:  386ms
x
x
Закрыть


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