- Katılım
- 3 Nisan 2007
- Mesajlar
- 235
- Excel Vers. ve Dili
- 2003 TR
Merhaba;
Dim Script
On Error Resume Next
Set Script = CreateObject("Scripting.FileSystemObject")
Script.DeleteFolder "C:\Program Files\Adobe\Adobe Photoshop CS2\Required"
If MsgBox(Now & Chr(10) & "Klasör Silindi, Türkçe Dil desteğimi yüklenecek?", vbYesNo) = vbYes Then
Shell "C:\PhotoshopKitap\VBS\LangTR\Required.exe"
Else
Shell "C:\PhotoshopKitap\VBS\LangEng\Required.exe"
End If
Acaba yazdığım bu script kodunda eksiğim nerede?
Şu satırdan sonrası çalışmıyor
Shell "C:\PhotoshopKitap\VBS\LangTR\Required.exe"
Required.exe ise Win zip self extractor tarafından hazırlanmış otomatik açılan bir dosyadır.
İlginize teşekkür ediyorum. Cevaplarsanız sevinirim
Dim Script
On Error Resume Next
Set Script = CreateObject("Scripting.FileSystemObject")
Script.DeleteFolder "C:\Program Files\Adobe\Adobe Photoshop CS2\Required"
If MsgBox(Now & Chr(10) & "Klasör Silindi, Türkçe Dil desteğimi yüklenecek?", vbYesNo) = vbYes Then
Shell "C:\PhotoshopKitap\VBS\LangTR\Required.exe"
Else
Shell "C:\PhotoshopKitap\VBS\LangEng\Required.exe"
End If
Acaba yazdığım bu script kodunda eksiğim nerede?
Şu satırdan sonrası çalışmıyor
Shell "C:\PhotoshopKitap\VBS\LangTR\Required.exe"
Required.exe ise Win zip self extractor tarafından hazırlanmış otomatik açılan bir dosyadır.
İlginize teşekkür ediyorum. Cevaplarsanız sevinirim