Option Explicit

Dim fso, userProfile, psSettingsPath

' Kullanıcı profil dizinini al
userProfile = CreateObject("WScript.Network").UserProfile

' Photoshop ayarlarının bulunduğu dizin
psSettingsPath = userProfile & "\AppData\Roaming\Adobe\Adobe Photoshop CC 2019\"

' FileSystemObject oluştur
Set fso = CreateObject("Scripting.FileSystemObject")

' Ayar dizinini kontrol et ve sil
If fso.FolderExists(psSettingsPath) Then
    fso.DeleteFolder psSettingsPath, True
    WScript.Echo "Photoshop ayarları sıfırlandı."
Else
    WScript.Echo "Photoshop ayar dizini bulunamadı."
End If

' Temizle
Set fso = Nothing