@dir = grep { $_ ne "." && $_ ne ".." && -d "./desktop/$_" }
	readdir(TEXTFILES);