Eksik JavaScript Kodu

[erkankamilonas]

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

 

[erkankamilonas]

Sorunuma yardımcı olabilecek varmı acaba?

 

[yildirimm]

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

End If

burdaki javascript kodunu bu şekilde bir denermisiniz if le eğer demişsiniz koşul oluşmuşsa else ile aynı şeyi yapmanın bir mantuığı yok farklı bir şey yapacaksaniz else kullanırsınız çalışmassa else yide silerseniz sorununuz duzelecektir