• Андрей
  • Восстановленный участник
  • На форуме с 8 сентября 2002г.
  • Сообщений: 237
  • Спасибо: 0

Тема: Как программно получить полное имя или путь текущего проекта?

проблема такая:
Нужно узнать место на диске где лежит текущий проект  dvb,возможно ли это?
Если это поможет то на delphi команды следующие:
namefile=extractFilename(application.exeName);
pathfile=extractFilePath(application.exeName);
заранее спасибо!

  • shteyn
  • Восстановленный участник
  • На форуме с 19 января 2004г.
  • Сообщений: 1
  • Спасибо: 0

Re: Как программно получить полное имя или путь текущего проекта?

Что-то вроде этого

Function GetProjectPath() As String
Dim i As Integer
GetProjectPath = Application.VBE.ActiveVBProject.FileName
For i = Len(GetProjectPath) To 1 Step -1
If Mid(GetProjectPath, i, 1) = "\" Then
GetProjectPath = Left(GetProjectPath, i)
Exit For
End If
Next i
End Function

  • Андрей
  • Восстановленный участник
  • На форуме с 8 сентября 2002г.
  • Сообщений: 237
  • Спасибо: 0

Re: Как программно получить полное имя или путь текущего проекта?

Огромное спасибо!!!
Все работает!!!