# Kod usuwa katalog

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strFolderPath = '<ciekaPliku>'; # np. "d:\temp"
# ------ KONIEC KONFIGURACJI ---------
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');
$objFSO->DeleteFolder($strFolderPath);
print "Usuwanie katalogu zostao zakoczone powodzeniem.\n";
