Code

zero_it filename
 

Code

Var vName as String
Var vLoop as Int
Var vCnt as Int
Var vStatus as Int
Var vFiles as String
Var vHandle as Int
Var vDirectory as String

vDirectory = "C:\Sesame\Music\"

vStatus = @Shell("dir " + vDirectory + " /b > " + vDirectory + "DirectoryListing.txt")

If vStatus = 0 Then
{
	vFiles = @Insert(vDirectory +"DirectoryListing.txt")
	vFiles = @Replace(vFiles, @Newline(), ";")
	vFiles = @SearchStringArray(vFiles, "..\.mp3")
	vCnt = @CountStringArray(vFiles)
	vLoop = 1

	If @AskUser("This will clear " + @Str(vCnt) + " Files.", "Are you sure you want to continue", "") Then
	{
		While vLoop <= vCnt
		{
			vName = @AccessStringArray(vFiles, vLoop)
			FileDelete(vDirectory + vName)
			vHandle = FileOpen(vDirectory + vName)
			FileClose(vHandle)
			vLoop = vLoop + 1
		}
	}
	FileDelete(vDirectory + "DirectoryListing.txt")
}