Kod: Tümünü seç
Option Explicit
Dim objShell, objFSO
Dim sourcePath, targetFolder, linkName, linkPath
Dim isFolder, cmd, wshExec, exitCode
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Kaynak dosya veya klasör yolunu al
sourcePath = InputBox("Sembolik bağlantısı oluşturulacak DOSYA veya KLASÖR tam yolunu girin:", "Kaynak yol")
If sourcePath = "" Then
WScript.Echo "Kaynak yolu girilmedi. Çıkılıyor."
WScript.Quit
End If
If Not objFSO.FileExists(sourcePath) And Not objFSO.FolderExists(sourcePath) Then
WScript.Echo "Kaynak yolu bulunamadı: " & sourcePath
WScript.Quit
End If
' Hedef klasör (linkin oluşturulacağı yer)
targetFolder = InputBox("Sembolik bağlantının oluşturulacağı KLASÖR yolunu girin:", "Hedef klasör")
If targetFolder = "" Then
WScript.Echo "Hedef klasör girilmedi. Çıkılıyor."
WScript.Quit
End If
If Not objFSO.FolderExists(targetFolder) Then
WScript.Echo "Hedef klasör bulunamadı: " & targetFolder
WScript.Quit
End If
' Sembolik bağlantı ismini sor (varsayılan: kaynak adı + " - Symlink")
linkName = InputBox("Oluşturulacak sembolik bağlantının adını girin:", "Bağlantı adı", objFSO.GetFileName(sourcePath) & " - Symlink")
If linkName = "" Then
WScript.Echo "Bağlantı adı girilmedi. Çıkılıyor."
WScript.Quit
End If
' Bağlantı tam yolu
linkPath = objFSO.BuildPath(targetFolder, linkName)
' Kaynak dosya mı klasör mü kontrolü
If objFSO.FolderExists(sourcePath) Then
isFolder = True
Else
isFolder = False
End If
' mklink komutunu hazırla
If isFolder Then
cmd = "cmd /c mklink /D """ & linkPath & """ """ & sourcePath & """"
Else
cmd = "cmd /c mklink """ & linkPath & """ """ & sourcePath & """"
End If
' Komutu çalıştır ve sonucu al
Set wshExec = objShell.Exec(cmd)
' Komut tamamlanana kadar bekle
Do While wshExec.Status = 0
WScript.Sleep 100
Loop
exitCode = wshExec.ExitCode
If exitCode = 0 Then
WScript.Echo "Sembolik bağlantı başarıyla oluşturuldu:" & vbCrLf & linkPath
Else
WScript.Echo "Sembolik bağlantı oluşturulamadı. Yönetici olarak çalıştırmayı deneyin." & vbCrLf & _
"Çalıştırılan komut:" & vbCrLf & cmd
End If
Bu kod, Windows işletim sisteminde sembolik bağlantılar (symlink) oluşturmak için kullanılan bir Visual Basic Script (VBS) dosyasıdır. Sembolik bağlantılar, bir dosya veya klasörün başka bir konumda gösterilmesini sağlayan özel dosyalardır.
Nesne Oluşturma: WScript.Shell ve Scripting.FileSystemObject nesneleri oluşturulur.
Kullanıcı Girdisi: Kullanıcıdan sembolik bağlantı oluşturulacak dosya veya klasörün yolu, hedef klasör ve bağlantı adı istenir.
Geçerlilik Kontrolleri: Girilen yolların geçerli olup olmadığı kontrol edilir. Eğer geçerli değilse, hata mesajı gösterilir ve script sonlandırılır.
Bağlantı Yolu Oluşturma: Hedef klasör ve bağlantı adı birleştirilerek bağlantının tam yolu oluşturulur.
mklink Komutunu Hazırlama: Kaynağın dosya mı yoksa klasör mü olduğuna göre uygun mklink komutu hazırlanır.
Komutu Çalıştırma: Hazırlanan komut çalıştırılır ve sonuç beklenir.
Sonuç Bildirimi: Bağlantı başarıyla oluşturulursa, kullanıcıya bilgi verilir; aksi takdirde hata mesajı gösterilir.
Bu script, kullanıcıdan alınan bilgilerle sembolik bağlantılar oluşturmak için otomatikleştirilmiş bir yöntem sunar.
Windows'taki kısayol (shortcut) ile sembolik bağlantı (symlink) arasında bazı önemli farklar ve benzerlikler bulunmaktadır:
Benzerlikler:
Amaç: Her ikisi de kullanıcıların dosya veya klasörlere daha kolay erişim sağlamasını amaçlar.
Kullanım Kolaylığı: Hem kısayollar hem de sembolik bağlantılar, kullanıcıların dosya sisteminde daha az yer kaplayarak daha düzenli bir yapı oluşturmalarına yardımcı olur.
Farklar:
Yapı:
Kısayol: Bir dosya veya klasörün bir kopyası değildir; sadece hedefin bir referansını tutar. Kısayollar, genellikle .lnk uzantısına sahiptir.
Sembolik Bağlantı: Gerçek dosya veya klasörün bir referansını tutar ve dosya sistemi düzeyinde bir bağlantı oluşturur. Kısayol gibi bir dosya değil, doğrudan hedefe işaret eden bir nesnedir.
Kullanım Alanı:
Kısayol: Genellikle masaüstü veya başlangıç menüsü gibi kullanıcı arayüzlerinde kullanılır.
Sembolik Bağlantı: Daha çok geliştiriciler ve sistem yöneticileri tarafından kullanılır; komut satırı ve scriptlerde yaygın olarak tercih edilir.
Taşınabilirlik:
Kısayol: Kısayol dosyası taşındığında, hedef dosya veya klasörün konumu değişirse kısayol çalışmayabilir.
Sembolik Bağlantı: Hedef dosya veya klasör taşındığında, sembolik bağlantı da geçersiz hale gelir, ancak dosya sistemi düzeyinde daha esneklik sağlar.
Yönetim İzinleri:
Kısayol: Kullanıcılar tarafından kolayca oluşturulabilir ve yönetilebilir.
Sembolik Bağlantı: Genellikle yönetici izinleri gerektirir ve mklink komutu ile oluşturulmalıdır.
Bu farklar ve benzerlikler, kısayollar ve sembolik bağlantılar arasındaki temel ayrımları ortaya koyar. Her iki yöntem de dosya erişimini kolaylaştırsa da, kullanım senaryoları ve teknik detayları açısından farklılık gösterir.
EKRAN GÖRÜNTÜLERİ ( SİSTEM : Windows 11 Yapı 22H2 x64 Home TR ) :
Ben sadece dizin olarak gösterdim, aynısı dosyalar içinde geçerlidir. (dosya'dan kast ettiğim : .dll, ve .exe'lerdir.)
Güle güle kullanın....
