Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скрытые файлы, Скрытие файлы и папки 
V
    Опции темы
Wilmor
Дата 28.2.2006, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 26.2.2006
Где: NET

Репутация: нет
Всего: нет



Вобще мне нущно сделать прогу которая создаёт скрытый фаил в моём слчие текстовый
Я использую такой код
Код

Dim a as String
Dim b as Integer
Dim d as String
Private Sub Form_Load()
b = FreeFile
a = "G:\RAMerror"
Open a  For Binary As b
Get b, 2, d
d = "Hello!"
Put b, 4, d
End Sub

--------------------
  
PM   Вверх
СВА
Дата 1.3.2006, 04:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.1.2006

Репутация: нет
Всего: нет



точно не помню но чтото в этом роде.
Используется FSO

Код

Set NewFSO = CreateObject("Scripting.FileSystemObject") 
Set File = NewFSO.GetFile("c:\1.txt") 
Set File.Attributes = 2 

PM MAIL   Вверх
СВА
Дата 1.3.2006, 05:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.1.2006

Репутация: нет
Всего: нет




M
Akina
Сообщение приведено в читабельную форму.


Работа с атрибутами файлов


Для работы с атрибутами файлов используются функции GetAttr и SetAttr. Синтаксис функции GetAttr, возвращающей атрибуты файлов, следующий:
Код

GetAttr (pathName) 

где pathName — путь, включающий имя файла, папку, устройство. По умолчанию применяется текущая папка и устройство.

Функция GetAttr возвращает число, которое определяет атрибуты файла. Интерпретировать это число можно при помощи параметров, описанных в табл. 9.3.

Таблица 9.3. Константы атрибутов файлов

Код

Константа    Описание              Значение 

vbNormal     Обычный файл             0 
vbReadOnly   Файл только для чтения   1 
vbHidden     Скрытый файл             2 
vbSystem     Системный файл           4 
vbDirectory  Каталог(папка)          16 
vbArhive     Архивный файл           32


Аналогично работает функция setAttr, выполняющая установку атрибутов файлов. Синтаксис этой функции следующий:

Код

SetAttr pathName, attributes 


где:

pathName — путь, включающий имя файла, папку, устройство. По умолчанию используется текущая папка и устройство;
attributes — число или выражение, задающее сумму атрибутов.

Замечание

В функции SetAttr используются все константы, описанные в табл. 9.3, кроме константы vbDirectory.

Для того чтобы задать несколько атрибутов, можно просто просуммировать указанные константы. Например, для установки атрибутов файла Hidden и Read-only необходимо использовать функцию setAttr следующего вида:

Код

SetAttr "MyFile", vbHidden + vbReadOnly 



При этом для файла MyFile будут установлены атрибуты Hidden и Read-only.

Это сообщение отредактировал(а) Akina - 1.3.2006, 10:23
PM MAIL   Вверх
Wilmor
Дата 1.3.2006, 18:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 26.2.2006
Где: NET

Репутация: нет
Всего: нет



Почему если я создаю системный фаил я немогу его найти ведь путь указан.
Но если я повторно хочу создать фаил то он выдает ошибка пути доступа тоесть он какбы есть smile
Код

SetAttr a & c, vbHidden + vbReadOnly+vbSystem


Это сообщение отредактировал(а) Wilmor - 1.3.2006, 18:56
--------------------
  
PM   Вверх
Naghual
Дата 1.3.2006, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Найти - это в смысле увидеть в проводника? - Отключена опция "показывать скрытые/системные файлы".


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Wilmor
Дата 1.3.2006, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 113
Регистрация: 26.2.2006
Где: NET

Репутация: нет
Всего: нет



Спасибки всем smile
--------------------
  
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0656 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.