VB

[skipper]

люди, помогите пожалуйста.

как на vb сделать следующие штуки:

чтобы прога при включени сохраняла свой exe'шник в заданной папке

и чтобы она не лежала в автозагрузке, но включалась при включении компа

[gvozd]

1). FileCopy App.Path & "\" & App.EXEName & ".exe", путь к заданной папке.

2). Ты имеешь ввиду, чтобы не лежала в папке автозагрузка? Тогда пиши в реестр, а если вообще, то никак простыми методами. Если не знаешь как писать в реестр, то ищи по форуму, я уже отвечал, и модуль давал. Вот эта тема.

Изменено 24 марта, 2005 пользователем gvozd

[skipper]

благодарю..

[skipper]

Я при загрузке формы вставил такую строчку

FileCopy App.Path & "\" & App.EXEName & ".exe", D:\1.exe

а прога ошибку выдаёт..... чё за нафиг????

[gvozd]

skipper: строку D:\1.exe, возьми в кавычки, должно получиться вот это:

FileCopy App.Path & "\" & App.EXEName & ".exe", "D:\1.exe"

[freeloader]

2gvozd Здорова

Юзайте АПИ да будет вам счастие

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

dim Ret as long

ret=CopyFile App.Path & "\" & App.EXEName & ".exe", "D:\1.exe", true

Ну и нафлудил же я :))

[skipper]

А можно чтобы он копировался с каким-либо атрибутом (например скрытый или архивный)???

[skipper]

>> gvogd

у меня всё в реестр прописалось, прога запускается, всё ништяк, только как сделать чтобы эта запись из реестра удалялась??

[freeloader]

RegDeleteKey;

RegDeleteValue;

В зависимости от того что тебе нужно...

[Vitalii]

А можно чтобы он копировался с каким-либо атрибутом (например скрытый или архивный)???

167297[/snapback]

Назначать атрибуты файлам можно через FSO, в Preferences подключи его

' Пример использования свойства Attributes'© 2001 А.КлимовSub ToggleArchiveBit(filespec)Dim fso, fSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFile(filespec)If f.Attributes and 32 Then  f.Attributes = f.Attributes - 32  MsgBox "Атрибут Архивный сброшен"Else f.Attributes = f.Attributes + 32 MsgBox "Атрибут Архивный установлен"End IfEnd Sub

Вот тебе флаги, которые могут пригодится, для назначения двух атрубутов значение флагов суммируй

Normal 0 Обычный файл. Атрибуты не установлены. По умолчанию

ReadOnly 1 Только для чтения. Установлен атрибут чтение/запись

Hidden 2 Скрытый файл. Установлен атрибут чтение/запись

System 4 Системный файл. Установлен атрибут чтение/запись

Volume 8 Метка тома дискового накопителя. Установлен атрибут только для чтения

Directory 16 Папка или каталог. Установлен атрибут только для чтения

Archive 32 Файл был изменен после последнего резервирования. Установлен атрибут чтение/запись

Alias 1024 Ссылка или ярлык. Установлен атрибут только для чтения

Compressed 2048 Сжатый файл. Установлен атрибут только для чтения

[freeloader]

FSO отстой, мой тебе совет ищи метод без FSO а на WinAPI