Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Скрытые файлы

Автор: Wilmor 28.2.2006, 18:51

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

Код


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

Автор: СВА 1.3.2006, 04:30

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

Код


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

Автор: СВА 1.3.2006, 05:20

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.

Автор: Wilmor 1.3.2006, 18:54

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

Код


SetAttr a & c, vbHidden + vbReadOnly+vbSystem

Автор: Naghual 1.3.2006, 19:01

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

Автор: Wilmor 1.3.2006, 19:31

Спасибки всем smile