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

@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 + "\")

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

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

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

raxper 10236 / 6614 / 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

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

Решение