'Skrypt kasuje pliki z rozszerzeniem DXF

path_folder = "C:\xml_klaes\ITP_ZZ\"
Call GetFileName(path_folder)

Function GetFileName(path_folder)

Dim objFSO,objFolder,objFile,colFiles,FileName 



Set objFSO = CreateObject("Scripting.FileSystemObject")

        
Set objFolder = objFSO.GetFolder(path_folder)

Set colFiles = objFolder.Files

'Sprawdzenie kazdego pliku w katalogu
For Each objFile in colFiles
    
	'Rozbicie pliku na nazwe oraz rozszerzenie
	FileName=objFile.Name 
	
	Extension=objFSO.GetExtensionName(objFile.Name)
	
	'Skasowanie pliku z .DXF
	if extension = "DXF" then
	objFSO.DeleteFile (path_folder & FileName) 
	end if
Next

'MSGBox "Gotowe"
end Function