Bu ilk CLI esaslı betiğim oldu. (GNU/Linux tarafında yazılımların CLI özelliklerini kullanma alışkanlığım zaten vardı.Ama Windows tarafında ilk defa kullandım.)
Uzun uzun anlatım da bulunmayacağım.Ekran görüntülerinden anlarsınız betiğin nasıl çalıştığını....
KOD İÇERİĞİ :
Kod: Tümünü seç
' LibreArşivci.vbs - TRWE_2012 için D:\ kurulumlu 7-Zip desteği ile
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 1. Kaynak dosya veya klasör yolu al
sourcePath = InputBox("Sıkıştırmak istediğiniz dosya veya klasörün TAM yolunu girin:" & vbCrLf & "(örnek: C:\Users\Administrator\AppData\Roaming\Mozilla\Firefox\Profiles)", "Kaynak Yolu")
If sourcePath = "" Or (Not objFSO.FolderExists(sourcePath) And Not objFSO.FileExists(sourcePath)) Then
MsgBox "Geçerli bir dosya ya da klasör yolu girmediniz.", vbCritical, "Hata"
WScript.Quit
End If
' 2. Arşiv biçimi
archiveType = LCase(InputBox("Arşiv biçimini girin (zip, 7z, tar):", "Arşiv Biçimi", "7z"))
If archiveType = "" Or (archiveType <> "zip" And archiveType <> "7z" And archiveType <> "tar") Then
MsgBox "Geçerli bir arşiv biçimi girilmedi (zip, 7z, tar).", vbCritical, "Hata"
WScript.Quit
End If
' 3. Sıkıştırma seviyesi
compressionLevel = InputBox("Sıkıştırma seviyesini seçin (1-9):", "Sıkıştırma Seviyesi", "9")
If Not IsNumeric(compressionLevel) Or compressionLevel < 1 Or compressionLevel > 9 Then
MsgBox "Geçerli bir sıkıştırma seviyesi (1-9) girilmedi.", vbCritical, "Hata"
WScript.Quit
End If
' 4. Arşiv adı
archiveName = InputBox("Masaüstüne kaydedilecek arşiv dosyasının adını girin (uzantısız):", "Arşiv Adı")
If archiveName = "" Then
MsgBox "Geçerli bir arşiv adı girilmedi.", vbCritical, "Hata"
WScript.Quit
End If
' Masaüstü yolu
desktopPath = objShell.SpecialFolders("Desktop")
outputPath = """" & desktopPath & "\" & archiveName & "." & archiveType & """"
' 7-Zip yolu (D sürücüsünde kurulu)
sevenZipPath = """D:\Program Files\7-Zip\7z.exe"""
If Not objFSO.FileExists(Replace(sevenZipPath, """", "")) Then
MsgBox "7-Zip burada bulunamadı: " & sevenZipPath, vbCritical, "Hata"
WScript.Quit
End If
' Komut satırı oluşturuluyor
compressCommand = sevenZipPath & " a -t" & archiveType & " -mx=" & compressionLevel & " " & outputPath & " """ & sourcePath & """"
' Komutu çalıştır
result = objShell.Run(compressCommand, 1, True)
If result = 0 Then
MsgBox "Arşiv başarıyla oluşturuldu:" & vbCrLf & outputPath, vbInformation, "Başarılı"
Else
MsgBox "Sıkıştırma işlemi başarısız oldu! Hata kodu: " & result, vbCritical, "Başarısız"
End If
