Как узнать путь к программе?

@maksimla · Регистрация: 23.07.2011

Студворк — интернет-сервис помощи студентам

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

А как создать скрытые файлы временные файлы?

raxper · 22.08.2011, 21:08

создаете как обычно, а cкрытые... поиграйтесь установкой аттрибутов SetFileAttributes(). Насчет "временных" неясно, обрисуйте полностью задачу.

@Pro_grammer · 23.08.2011, 07:16

Сообщение от maksimla

Vb6
Создаем программу помещаем ее какое то директорию а она пишет в какой директории находится.

Включите в программу строку:

Visual Basic
1
progpath = App.Path & "\"

В переменной progpath будет полный путь из которого запущено ваше приложение.

Как было сказано, атрибут скрытый и временный файлу можно присвоить одной функцией, её декларация

Visual Basic
1
2
3
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Const FILE_ATTRIBUTE_HIDDEN = 2

Вызывать так

Visual Basic
1
SetFileAttributes FileName, FILE_ATTRIBUTE_TEMPORARY

@maksimla · 23.08.2011, 11:05 **[ТС]**

а это на win api?

@gaw · 23.08.2011, 12:16

Доп.
Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long

Платформа: Win 95/98, Win NT

SetFileAttributes меняет атрибуты файла или папки. Вы можете установить четыре вида:архивный,только для чтения,скрытый и системный.В случае ошибки функция возвращает 0 ,в успешном случае 1.

lpFileName
Полное имя файла или папки.
dwFileAttributes
Один или несколько флагов,определяющих атрибуты файла:
FILE_ATTRIBUTE_ARCHIVE = &H20
Архивный файл.
FILE_ATTRIBUTE_HIDDEN = &H2
Скрытый файл или папка.Обычно его не видно пользователю.
FILE_ATTRIBUTE_NORMAL = &H80
Файл не имеет атрибутов(нельзя комбинировать с другими флагами).
FILE_ATTRIBUTE_READONLY = &H1
Файл только для чтения.
FILE_ATTRIBUTE_SYSTEM = &H4
Системный файл.Является частью операционной системы.

@Shkap · 25.08.2011, 21:26

скрытый атрибут мона както вроде по другому
погуглил нашол вот что
SetAttr "путь", vbHidden
но таким образом не нашол ничё по временному

@Alex77755 · 26.08.2011, 09:13

Совет 243.

Создавайте временные VB-файлы с помощью API-функции

Если вы когда-либо работали с Word или другим приложением Office, вы, вероятно, обратили внимание, что каждый раз при открытии файла Office создает временный файл, в котором будут храниться все изменения. И тогда у вас мог возникнуть вопрос, как создавать произвольные временные файлы в своем собственном VB-приложении. Для этого воспользуйтесь API-функцией GetTempFileName:

Public Declare Function GetTempFileName Lib "kernel32" _
Alias "GetTempFileNameA" (ByVal lpszPath As String, _
ByVal lpPrefixString As String, ByVal wUnique As Long, _
ByVal lpTempFileName As String) As Long

Аргумент lpszPath передает полное имя файла (включая путь к нему), lpPrefixString позволяет добавить префикс из трех букв слева от имени файла, а wUnique дает команду Windows либо создать файл с произвольным именем (wUnique равен 0), либо использовать заданный номер. Параметр lpTempFileName, конечно же, содержит имя нового временного файла. В качестве примера поместите приведенное выше объявление API-функции в стандартный модуль, а затем напишите следующую функцию:

Private Function GenTempName(sPath As String)
Dim sPrefix As String
Dim lUnique As Long
Dim sTempFileName As String

If IsEmpty(sPath) Then sPath = "D:\Articles\IVB"
sPrefix = "fVB"
lUnique = 0

sTempFileName = Space$(100)
GetTempFileName sPath, sPrefix, lUnique, sTempFileName
sTempFileName = Mid$(sTempFileName, 1, _
InStr(sTempFileName, Chr$(0)) - 1)
GenTempName = sTempFileName
End Function

После этого откройте новую форму и введите следующий код в ее событие Click. (Замените D:\Articles\IVB на любой допустимый путь.)

MsgBox GenTempName("D:\Articles\IVB")

Запустите проект на выполнение. Заданный вами каталог теперь содержит временный файл, имя которого было выведено в окне сообщения.

Обратите внимание, что для того чтобы приведенная выше функция работала надлежащим образом, вы должны задать только допустимый путь. В противном случае функция GetTempFileName вернет 0 и нулевой параметр в качестве имени файла в Windows NT. В Windows 9x неправильно указанный путь также вернет 0, а параметр lpTempFileName не будет содержать имя временного файла.

@Mr.Burns · 30.08.2011, 13:49

Сообщение от Pro_grammer

Включите в программу строку:

Visual Basic
1
progpath = App.Path & "\"

В переменной progpath будет полный путь из которого запущено ваше приложение.

но если поместить такую программу в корень диска, то программа вернёт, например, "C:\\", что не есть правильно.

как-то вот так

Visual Basic
1
2
3
4
5
6
7
Private Sub Form_Load()
    MsgBox AppPath
End Sub
 
Function AppPath() As String
    If Not Right(App.Path, 1) = "\" Then AppPath = App.Path + "\" Else AppPath = App.Path
End Function

@Ципихович Эндрю · 30.08.2011, 14:32

функция вещь хорошая, кто разбирается сам состроит, а так тоже одна строка

Visual Basic
1
If Right$(App.Path, 1) = "\" Then MsgBox$ App.Path + "\" Else MsgBox$ App.Path

@Mr.Burns · 30.08.2011, 16:22

но можно ещё круче

Visual Basic
1
MsgBox IIf(Right$(App.Path, 1) = "\", App.Path, App.Path + "\")

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@maksimla 26 / 26 / 0 Регистрация: 23.07.2011 Сообщений: 120

	Как узнать путь к программе? 22.08.2011, 20:30. Показов 11002. Ответов 9 Метки нет (Все метки) Vb6 Создаем программу помещаем ее какое то директорию а она пишет в какой директории находится. Мне для того чтобы потом проверить папки там и файлы или создать там папки и файлы. А как создать скрытые файлы временные файлы? 0

raxper 10237 / 6615 / 498 Регистрация: 28.12.2010 Сообщений: 21,154 Записей в блоге: 1
	22.08.2011, 21:08
	создаете как обычно, а cкрытые... поиграйтесь установкой аттрибутов SetFileAttributes(). Насчет "временных" неясно, обрисуйте полностью задачу. 0

@maksimla 26 / 26 / 0 Регистрация: 23.07.2011 Сообщений: 120
	23.08.2011, 11:05 [ТС]
	а это на win api? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	23.08.2011, 12:16
	Доп. Declare Function SetFileAttributes Lib "kernel32.dll" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long Платформа: Win 95/98, Win NT SetFileAttributes меняет атрибуты файла или папки. Вы можете установить четыре вида:архивный,только для чтения,скрытый и системный.В случае ошибки функция возвращает 0 ,в успешном случае 1. lpFileName Полное имя файла или папки. dwFileAttributes Один или несколько флагов,определяющих атрибуты файла: FILE_ATTRIBUTE_ARCHIVE = &H20 Архивный файл. FILE_ATTRIBUTE_HIDDEN = &H2 Скрытый файл или папка.Обычно его не видно пользователю. FILE_ATTRIBUTE_NORMAL = &H80 Файл не имеет атрибутов(нельзя комбинировать с другими флагами). FILE_ATTRIBUTE_READONLY = &H1 Файл только для чтения. FILE_ATTRIBUTE_SYSTEM = &H4 Системный файл.Является частью операционной системы. 1

@Shkap Оранжевый портфель. 60 / 58 / 47 Регистрация: 13.11.2010 Сообщений: 459
	25.08.2011, 21:26
	скрытый атрибут мона както вроде по другому погуглил нашол вот что SetAttr "путь", vbHidden но таким образом не нашол ничё по временному 0

Как узнать путь к программе?

Решение