VB Utility App to Search Sub Folder to rename files with a specific extension

Dim fso As New FileSystemObject
Dim f As Folder, sf As Folder, path As String
Dim file as File, iniFile as File, drpFile as File
Dim currFile as File
Dim inifiles() as string,  drpFiles as string
         
'Initialize path.
'path = Environ("windir")
path = Environ("P:\Programs\") 'THe root of the Subfolders to be searched is P:\Programs\
	
'Check the path exists
if not fso.FolderExists(path)
    MsgBox "Folder Does Not Exist" & path, vbOKOnly
end if 
'Get a reference to the Folder object.
   Set f = fso.GetFolder(path)
   If fld.SubFolders.Count > 0 Then
 
      'Iterate through subfolders.		  
       For Each sf In f.SubFolders
	  MsgBox "Sub Folder" & sf.Name
	 ' or Debug.Print sf.Name
 
          'Iterate through files in each subfolder 
	  'Do I need to do this to get access to files in a subfolder?
		
           ' First Change all .ini file to .live
           For each iniFile in sf 						        	
	   If Not iniFile.FileExists("*.ini") Then 		
             ' If No ini file exists in Subfolder Loop to next Folder
	     'loop to next sub directory
	  else
	    ' Get the file name 
	     Dim strIniFileName as string
	     strIniFileName = iniFile.name 
 
	  ' check this file extention
	  ' there might be more than one ini file 
	  ' How do i check this?
 
	 ' Use .GetExtensionName to check if its .ini perhaps
	   if iniFile.GetExtensionName = ".ini"			
                ' Or is this "ini" (no .)?
					
		dim nameNoExt as string
		dim newEXT as string
		Dim LiveFile  as string
		liveEXT  = ".live"				
					
	nameNoExt = Left(strIniFileName, InStr(strIniFileName, ".") - 1)
	LiveFile  = nameNoExt & liveEXT
 
	'rename ini to live				
	'Name strIniFileName as strIniFileName & ".live"
	Name strIniFileName as LiveFile	
					
  end if       
 
Next
   ' Do I need to Go back to the root folder from where I want to search   SubDirectories?	
 ' At this point I could check to ensure no ini files exist - they should all be .live files 
     ' If any exist - raise message
    ' Second Change all .drp file to .ini
    For each drpFile in sf 						  
    ' Check the email code for file in dir
		
	If Not drpFile.FileExists("*.drp") Then 		
         ' If No ini file exists in this Subfolder Loop to next Folder
	  'loop to next sub directory
	else
	 ' Get the file name 
	 Dim strDRPFileName as string
	 strDRPFileName = drpFile.name 
 
	  ' check this file extention
	  ' there might be more than one drp file 
	  '  How do i check this?
 
	' Use .GetExtensionName to check if its .ini perhaps?
	 if drpFile.GetExtensionName = ".drp"			
               ' Or is this just "drp"	(no .)?
					
	 dim nameNoExt1 as string
	 dim newEXT1 as string
	 Dim newINIFile  as string
	 drpEXT  = ".live"				
					
  nameNoExt1 = Left(strDRPFileName, InStr(strDRPFileName, ".") - 1)
  newINIFile = nameNoExt & liveEXT
 
	'rename ini to live				
        'Name strIniFileName as strIniFileName & ".live"
	  Name strDRPFileName as newINIFile	
					
     end if       
 Next
Next
 
 
End if ' End if - fld.SubFolders.Count > 0