Göreceli dosya yolu var mı?

[sinbade]

Herkese selam;

If Dir("C:\windows\system32\a.dll") = "" Then
MsgBox "a.dll dosyası sistemde bulunamadı. Lütfen tekrar yükleyiniz."
End If

komutuyla sistem32 içindeki a.dll dosyası var mı yok mu baktırıyorum. eğer yoksa uyarı mesajıyla a.dll dosyasını sisteme tekrar kaydedilmesini istiyorum.

Sorum şu:
windows'un yüklü olduğu sürücünün adı her zaman C:\ olmayabilir. burada "%systemroot%\system32\a.dll" gibi göreceli dosya yolunu nasıl kullanabilirim. vba'da bu mümkün mü?

umarım anlatabildim. ilginize şimdiden teşekkür ederim.

 

[Ayhan Ercan]

Merhaba

Aynen yazdığınız gibi denedinizmi?

dosya = "a.dll"
If Dir("%systemroot%\system32\" & dosya) = "" Then
MsgBox dosya & " dosyası sistemde bulunamadı. Lütfen tekrar yükleyiniz."
End If

 

[sinbade]

Ayhan Bey teşekkür ederim...
Ancak olmadı sanırım... dosya yerinde olduğu halde yok diye uyarı mesajı veriyor..

 

[Zeki Gürsoy]

"Environ" olarak forumda aratma yapın.

 

[sinbade]

"environ" olarak arattım fakat bir sonuca ulaşamadım.. ilginize teşekkür ederim yine de...

 

[Taruz]

Merhaba..

If Dir(environ("systemroot") & "\system32\a.dll") = "" Then
MsgBox "a.dll dosyası sistemde bulunamadı. Lütfen tekrar yükleyiniz."
End If

environ("systemroot") komutu size sistem klasör yolunu verir. Daha fazlası için arama sonuçlarındaki access sorularına da bakabilirsiniz..

İyi akşamlar..

 

[sinbade]

Sn. Taruz;
birşey daha öğrenmiş oldum... problem sayenizde çözüldü.. ilginize çok teşekkür ederim..

 

[Levent Menteşoğlu]

Ek bir bilgi: Aşağıdaki kod ile eviron fonksiyonuyla elde edilecek bilgilerin listesini elde edebilirsiniz.

Sub environlistesi()
c = c + 1
Do Until Environ(c) = ""
deg = Split(Environ(c), "=")
Cells(c, "a") = deg(0)
Cells(c, "b") = deg(1)
c = c + 1
Loop
End Sub