| |
|
|
| | К примеру есть Far.
Как передать в TextBox путь, где он установлен? | |
| |
| |
| |
|
|
| | А в какой среде ( программе)= Вы работаете
Поле = App.Path
Поле = "C:\Far.exe" | |
| |
| |
|
|
| |
|
|
| |
Поле1.Text = App.Path
Поле2.Text = "C:\Far.exe"
|
| |
| |
| |
| |
|
|
| | Вообщем-то задача такая. Запускается форма и в textbox передает путь приложения. А что делать если я не знаю по какому пути оно установлено. Можно ли из реестра выцепить как-нить? | |
| |
| |
| |
|
|
| | MsgBox "Укажите путь к файлу"
InputBox "Укажите путь к файлу" | |
| |
| |
| |
|
|
| | Это понятно. Что можно вручную. Но мне хотелось бы так.
Установлен к примеру Far в C:\Catalog\ и загрузили в поле C:\Catalog\, перетащили на другой комп, там установлен Far в D:\Cat\ и загрузили в поле D:\Cat\ после старта формы | |
| |
| |
| |
|
|
| | http://www.appdeploy.com/messageboards/tm.asp?m=20594 | |
| |
| |
| |
|
|
| | Тут вроде для удаления файла указано. И извините за глупый вопрос. Скрипт от VBs пойдет для VB? | |
| |
| |
| |
|
|
| | но вам же никто не мешает вместо удаления применить получение полного пути к файлу? :)
VBA
'?fnFilePath("C:\Program Files\Far","Far.exe")
Function fnFilePath(spath, fnam)
With Application.FileSearch
.NewSearch
.LookIn = spath
.SearchSubFolders = True
.filename = fnam
.MatchTextExactly = False
.FileType = 1 'msoFileTypeAllFiles
If .Execute() > 0 Then
fnFilePath = .FoundFiles(1)
End If
End With
End Function
|
VBS можно использовать Scripting.FileSystemObject | |
| |
| |
| |
|
|
| | http://www.sql.ru/forum/actualthread.aspx?tid=228057&hl=%f0%e5%ea%f3%f0%f1%e8%ff#2002251 | |
| |
| |
|
|
