Sub RemoveDirAndContents(sDir As string)
	Dim sFiles(0) As String
	Dim i As Integer 

	GetFileListFromFolder sDir, "*.*",sFiles

	For i = 1 To ubound(sFiles)
		Kill sFiles(i)
	Next
	RmDir sDir 
End Sub