Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как програмно создать скрытую папку / 7 сообщений из 7, страница 1 из 1
30.04.2010, 05:53
    #36606528
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать скрытую папку
Хочется странного: програмно создать скрытую папку и положить в нее такой же скрытый экселевский файл...и чтобы любопытный пользователь не видел в проводнике ни файла, ни папки...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2010, 09:25
    #36606668
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать скрытую папку
DMK67,
есть у этих объектов такой атрибут как Hidden.
Только ведь пользователь может выбрать в настройках эксплорера "Показывать скрытые папки и файлы"...
???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2010, 13:34
    #36607368
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать скрытую папку
DMK67чтобы любопытный пользователь не видел в проводнике ни файла, ни папкия бы предложил использовать папку "темп",
она как раз находится в скрытом каталоге конкретного пользователя "Local Settings". Это для системы WinXP
Код: plaintext
1.
2.
    Dim pTEMP As String
    pTEMP = Environ("TEMP")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2010, 09:59
    #36608403
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать скрытую папку
Но ведь не все выберут "Показывать скрытые папки и файлы"

А что касается папки TEMP - именно ее постоянно чистят всякие удобные чистильщики типа
C-Cleaner.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2010, 12:26
    #36608446
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать скрытую папку
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub example()
Dim fso As Object, oFolder As Object, oFile As Object

'Используется File System Object из wsh
Set fso = CreateObject("Scripting.FileSystemObject")
Set oFolder = fso.CreateFolder("C:\Tmp2")
oFolder.Attributes = vbHidden
Set oFile = fso.CreateTextFile("C:\Tmp2\1.txt")

'А это команда VB (VBA)
SetAttr "C:\Tmp2\1.txt", vbHidden
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2010, 13:54
    #36608470
DMK67
DMK67
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать скрытую папку
Жалко veryhidden для папки нет...или есть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2010, 14:19
    #36608482
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно создать скрытую папку
Нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как програмно создать скрытую папку / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 316ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2178179]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 24ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 205ms
total:  316ms
x
x
Закрыть


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