Make Path / Create Dir

Ok, Im fed up, this lamer that calls himself Sherif Rofael needs to be dealt with by P.S.C. 
He has a grudge because I gave him a poor vote that I thought was genuine, well Im sorry. 
He decides to do a search and have a little voting spree on my submissions, because he's upset? 
Heres three examples.... 
http://www.planet-source-code.com/vb/scripts/showcode.asp?txtCodeId=46681&lngWId=1 
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=46309&lngWId=1 
http://planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=46563&lngWId=1 
It has also been brought to my attention that I am not the only one with whom he feels it necessary 
to hit the 'Poor' button whenever he see's one of 'our' submissions. Something needs to be done 
about him. 
and heres some code..... 
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long 
MakeSureDirectoryPathExists (strPath)  'Must have backslash on end ie: 'c:\test\a\b\'