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

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

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

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

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

raxp · 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

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

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

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

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

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	23.08.2011, 12:16	5
	Доп. 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	6
	скрытый атрибут мона както вроде по другому погуглил нашол вот что SetAttr "путь", vbHidden но таким образом не нашол ничё по временному 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	26.08.2011, 09:13	7
	Сообщение было отмечено как решение Решение Совет 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 не будет содержать имя временного файла. 3

	30.08.2011, 16:22

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

Решение