Dosya yolu bulma ve ilgili path yolu degistirme

Sordum.com tarafindan kodlanmış Programlar hakkinda bilgi paylasim alanidir.
Cevapla
esdizayn
Bit
Bit
Mesajlar: 2
Kayıt: 29 Ara 2007, 14:19

Dosya yolu bulma ve ilgili path yolu degistirme

Mesaj gönderen esdizayn » 27 Kas 2018, 15:05

Arkadaslar nasıl aratacagımı ve yapacagımı bilemedim,
cmd veya vbs ile calıstırdıgımda portable program yapmak icin o anda bulundugum klasorun yolunu txt dosyasına yazdırmam ve sonraki asamalrda farklı klasore acılınca otomatik olarak calısınca o klasor yolunu onceki yere yazan birsey yazmam lazım,
ornegin;

Kod: Tümünü seç

Set WshShell = CreateObject("WScript.Shell" ) 
WshShell.Run chr(34) & "httpd\bin\httpd.exe" & Chr(34), 0
WshShell.Run chr(34) & "mysql\bin\mysqld.exe" & Chr(34), 0 
Set WshShell = Nothing
bu sekilde apache ve mysql baslatıyorum...
ve php.ini icinde soyle bir durum tanımladım

Kod: Tümünü seç

extension_dir = "C:\Users\ornek\Desktop\ucanserverlastWORD\php\ext\"
bu yolu nasıl buldurup kontrol edip degistrebilirim yani bunu eger yol degismisse

Kod: Tümünü seç

extension_dir = "C:\Users\ornek\anadizin\ucanserverlastWORD\php\ext\"
yaptırtabilirim.

Bu kodu php.ini yazdırıp degistirmek asıl istedigim.



esdizayn
Bit
Bit
Mesajlar: 2
Kayıt: 29 Ara 2007, 14:19

Re: Dosya yolu bulma ve ilgili path yolu degistirme

Mesaj gönderen esdizayn » 27 Kas 2018, 17:46

Kendim ornek birşeyler buldum yardımcı olabilecek var mı;

Kod: Tümünü seç

Set objFSO = CreateObject("Scripting.FileSystemObject")
scriptPath = objFSO.GetParentFolderName(WScript.ScriptFullName)
path yolunu bununla buluyorum.

Kod: Tümünü seç

Set objFile = objFSO.OpenTextFile(strFileName, 1)
strText = objFile.ReadAll
objFile.Close
okumada sanırım boyle

Kod: Tümünü seç

Set objFile = objFSO.OpenTextFile(strFileName, 2)
objFile.WriteLine strNewText
objFile.Close
Buda yazma

Cevapla