Sciezka dostepu (parent folder) do aktywnego projeku.
otwarty rozpoczął: pqucc
postów: 6
napisał: pqucc postów: 3
umieszczony: 27 czerwca 2005 21:07
A masz może pomysł jak to zrobić w AutoCADzie? :D
Projekty *.dvb istnieją tu niezależnie od rusynku!!! i to jest cały "problem".
napisał: tashemik postów: 35
umieszczony: 19 czerwca 2005 19:21
Chłopaki ale kombinujecie:|
przeciż wystarczy:
x = ThisWorkbook.Path
wartość x jest ścieżką gdzie znajduje się aktualny plik.
Jeden warunek.
Musi być on już zapisany.
Jeżeli zrobimy nowy arkusz to nic nam nie zwróci bo nie ma co zwracać skoro go nie ma na dysku.
_____________
Tashemik |
________:D___|
napisał: pil postów: 154
umieszczony: 15 kwietnia 2005 07:09
Może coś takiego Ci pomoże :
Option Explicit
Public Sub sciezka()
Dim dlugoscNazwy As Integer
Dim dlugoscPelnejSciezki As Integer
Dim sciezka As String
sciezka = ThisDrawing.Path
MsgBox sciezka
'lub tak - z obicianiem lancucha :
dlugoscNazwy = Len(ThisDrawing.Name)
dlugoscPelnejSciezki = Len(ThisDrawing.FullName)
sciezka = Left(ThisDrawing.FullName, (dlugoscPelnejSciezki - dlugoscNazwy - 1)) '-1 - usuniecie ostatniego \ w sciezce
MsgBox sciezka
End Sub
napisał: pqucc postów: 3
umieszczony: 13 kwietnia 2005 18:41
...Niestety.
Application.ActiveDocument.Path
Pobiera Parent Folder ale do tylko aktywnego rysunku. To pewnie kiedyś mi się przyda.
I racja, że Twoj pomysł z Right/Left+InStr to lepsze niż pętlowanie.
Dziękuje
napisał: AlexB postów: 3
umieszczony: 17 marca 2005 10:30
Application.ActiveDocument.Path
A jak nie ma, to zamiast pelti zastosuj Left/Right + InStr
napisał: pqucc postów: 3
umieszczony: 23 lutego 2005 00:11
Witajcie,
Postrzebuję pobrać ściżkę dostępu do aktywngo projektu. Wiem jak pobrać pełną nazwę. Mnie jednak interesuje tylko sama scieżka do parent folder; oto przykład:
(załóżmy, że aktywny projekt to "F:\VBA\Programs\Podst_001.dvb")
Chce otrzymać tylko : "F:\VBA\Programs\"
Jak na razie udało mi sie to zrobić troche na około a wolałbym użyć jednej funkcji. Oto mój pomysł (wynikiem jest ParentF):
________________________________________________________
Dim vaArr As Variant
Dim MojAppName, ParentF As String
wstecz 1 dalej
otwarty rozpoczął: pqucc
postów: 6
