I have problem here. I use Drivelistbox and filelistbox. If I click the file inside the folder that contains empty space in its folder name, How I can rename the folder?

Like this, If I select the file inside this folder, How I can rename TKSSBlock C to this TKSSBLOCKC ?
Code:
C:\Database\BOUNDARIES\TKSSBlock C\ZONE
Code:
 If InStr(1, Dir1.Path, " ") > 0 Then
     MsgBox "Pastikan tidak terdapat ruang kosong pada folder, sila buat penamaan semula.", vbExclamation, "Penamaan folder"
     Exit Sub