Cemil Atay yazdı: 18 Oca 2025, 13:15 Sevgiyle merhaba!
Tarkan abi, aşağıdaki bağlantıda yer alan scrit'in bir dosyasında benim için münkünse deyişiklik yapmanı rica ediyorum.

https://www.sordum.net/41369/sag-tus-il ... engelleme/

( yetki_var_goster.vbe )
Abi ben istediğim deyişikliği izah etmeye çalışayım;
Bir dosya yada klasörü engelleyip gizlediğimizde, yeniden açığa çıkarmak için ( gizle veya göster ) öğesine tıklatıyoruz.
Dosya veya klasör tekrar görünür hale geliyor. Bununla beraber, işletim sistemine ait dosyalarda açığa çıkıyor.
Ardından ( erişim var ve görünür ) öğesine tıklatıyoruz ilgili dosya yada klasör erişime açılıyor ve görünür oluyor.
Sonrasında işletim sistemi dosya ve klasörlerinin kaybolması için tekrardan ( gizle veya göster ) öğesine tıklamamız gerekiyor.
Tabi bizler tüm bu işlemleri klavye ile yaptığımız için bizi uğraştırıyor.
Abi, ( gizle_goster.vbe ) dosyası içindeki kodları ( yetki_var_goster.vbe ) dosyasına eklemeni rica ediyorum.
Böylelikle, ( yetki_var_goster.vbe ) dosyası aynı anda iki işlevi yerine getirmiş olacak.
Hem engelleyip gizlediğim dosya görünecek ve erişime açılacak, hem de açığa çıkan sistem dosyaları kaybolacak.
Umarım anlatabilmişimdir.

Option Explicit

Dim objShell, objFolder, objItem, folderPath

' Klasör yolunu belirtin
folderPath = "C:\Klasör Tam Yolu" ' Burayı istediğiniz klasör yolu ile değiştirin

' Shell nesnesini oluştur
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(folderPath)

' Klasör bulunamazsa hata mesajı ver
If objFolder Is Nothing Then
    WScript.Echo "Klasör bulunamadı: " & folderPath
    WScript.Quit
End If

' Gizli dosyaları göster
For Each objItem In objFolder.Items
    If objItem.IsHidden Then
        objItem.Attributes = objItem.Attributes - 2 ' 2 = Hidden
    End If
Next

' Erişimi aç (örnek olarak, tüm kullanıcılar için okuma izni veriliyor)
For Each objItem In objFolder.Items
    ' Erişim izinlerini ayarlamak için gerekli kodu buraya ekleyin
    ' Örneğin, dosya izinlerini değiştirmek için Windows API'lerini kullanabilirsiniz
    ' Bu kısım, VBScript ile doğrudan yapılamayabilir, PowerShell veya başka bir dil kullanılabilir
Next

' Sistem dosyalarını gizle
For Each objItem In objFolder.Items
    If objItem.IsSystem Then
        objItem.Attributes = objItem.Attributes + 2 ' 2 = Hidden
    End If
Next

' Temizlik
Set objItem = Nothing
Set objFolder = Nothing
Set objShell = Nothing

TRWE_2012 yazdı: 18 Oca 2025, 16:20 Merhaba @Cemil ALTAY (bu arada güzel bir ismin ile soyismin var ve uyumlu...)

İstediklerine göre bir VBS kodladım...

Aşağıda, Windows 10 ve Windows 11 için daha genel bir şekilde gizli dosyaları gösteren, erişimi açan ve sistem dosyalarını gizleyen bir VBScript örneği bulabilirsin. Bu kod, belirli bir klasördeki tüm dosyalar üzerinde çalışacak şekilde tasarlanmıştır.

Genel VBScript Örneği

Kod: Tümünü seç

Option Explicit

Dim objShell, objFolder, objItem, folderPath

' Klasör yolunu belirtin
folderPath = "C:\Klasör Tam Yolu" ' Burayı istediğiniz klasör yolu ile değiştirin

' Shell nesnesini oluştur
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(folderPath)

' Klasör bulunamazsa hata mesajı ver
If objFolder Is Nothing Then
    WScript.Echo "Klasör bulunamadı: " & folderPath
    WScript.Quit
End If

' Gizli dosyaları göster
For Each objItem In objFolder.Items
    If objItem.IsHidden Then
        objItem.Attributes = objItem.Attributes - 2 ' 2 = Hidden
    End If
Next

' Erişimi aç (örnek olarak, tüm kullanıcılar için okuma izni veriliyor)
For Each objItem In objFolder.Items
    ' Erişim izinlerini ayarlamak için gerekli kodu buraya ekleyin
    ' Örneğin, dosya izinlerini değiştirmek için Windows API'lerini kullanabilirsiniz
    ' Bu kısım, VBScript ile doğrudan yapılamayabilir, PowerShell veya başka bir dil kullanılabilir
Next

' Sistem dosyalarını gizle
For Each objItem In objFolder.Items
    If objItem.IsSystem Then
        objItem.Attributes = objItem.Attributes + 2 ' 2 = Hidden
    End If
Next

' Temizlik
Set objItem = Nothing
Set objFolder = Nothing
Set objShell = Nothing

Açıklamalar

1.Klasör Yolu:

folderPath değişkenini, üzerinde işlem yapmak istediğiniz klasörün yolu ile değiştir.

2.Erişim İzinleri:

Erişim izinlerini ayarlamak için VBScript doğrudan yeterli olmayabilir. Bu nedenle, bu kısmı PowerShell veya başka bir programlama dili ile gerçekleştirmek daha uygun olabilir. VBScript ile dosya izinlerini değiştirmek karmaşık olabilir.

3.Hata Kontrolü:

Klasör bulunamazsa bir hata mesajı gösterir.

4.Temizlik:

Kullanılan nesneleri serbest bırakır.

Notlar:

Bu script, gizli dosyaları görünür hale getirir ve sistem dosyalarını gizler. Ancak, erişim izinlerini değiştirmek için daha karmaşık bir yaklaşım gerekebilir.Script'i çalıştırmadan önce dosyalarınızın yedeğini almayı unutma.

Bu .VBS örneği senin isteklerine göre hazırlanmış bir "TASLAK KODLAMASI"'dır.Yani usta (@Velociraptor) bunu kendi betiğini geliştirmek için kullanabilir.

Bu betik hatalı da çalışabilir.Çünkü usta kadar tecrübeli bir WindowsPC kullanıcısı değilim.....Bunu da göz önünde bulundur.

velociraptor yazdı: 18 Oca 2025, 22:52 İsteğin yerine getirildi dosyayı yeniden indirmen yeterli