SetBatchLines, -1
FilesInFolder = 0
DirsInFolder = 0
FileSelectFolder, folder, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}, 2, CHECK A FOLDER
Loop, %folder%\*.*, , 0 ;only search files
    FilesInFolder+=1
Loop, %folder%\*.*, , 2 ;only search subfolders
    DirsInFolder+=1

if (FilesInFolder=0)and(DirsInFolder=0)
{
msgbox, This folder is empty
}
else
{
   	MsgBox, 4, EMPTY THIS FOLDER, "%folder%" seems to contain files, check ?
	If Msgbox No
	Exit
	else
	run %folder%

}
ExitApp