Hi, I got an extra silver platter and felt generous so here it is Have fun with it.

Code:

$type = GetFileAttr ("c:\scripts")

$exists= Exist ("c:\scripts")

;

Select

	Case $exists = "1"

		?"Found something called scripts."

		Select

			Case $type <> "16"

				Del "c:\scripts"

				?"Type is file, deleted file."

				MD "c:\scripts"

				?"Created scripts directory."

		;

			Case $type = "16"

				?"Type is directory, doing nothing."

		EndSelect

;

	Case $exists <> "1"

		?"Found nothing called scripts"

		MD "c:\scripts"

		?"Created directory called scripts."

EndSelect


Edited by R2D2 (2003-12-08 11:34 PM)
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.