Vb6 определение папки и переименование папки именем из масссива

Формулировка задачи:

Windows XP, на рабочем столе есть папка с рандомными именами каждый раз, при запуске программы необходимо переименовать название этой папки на случайное слово из массива, при условии что прежнее название папки не соответствует хотя бы одному из слов из массива, далее выход. Всё. Не могли бы написать код, думаю что следует начинать с контрольного файла помещенного в папку.

Решение задачи: «Vb6 определение папки и переименование папки именем из масссива»

textual
                            Листинг программы 
                        

                            Option Explicit
Private Sub form_load()
 Dim FSO As Object
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Search FSO.GetFolder("F:\")
End Sub
 Sub Search(Fold As Object)
 Dim SubFold As Object, Fil As Object
   'Debug.Print Fold
   On Error GoTo ErrHandle
   For Each SubFold In Fold.SubFolders
     Search SubFold
   Next SubFold
   For Each Fil In Fold.Files
    'Name "F:\ìîÿ ïàïêà" As "F:\12341" 'ðàáîòàåò
   If InStr(1, Fil, "130795\ïðèâåò") <> 0 Then
  Text1.Text = Fil
  Text1.Text = Replace(Text1.Text, "\130795\ïðèâåò.txt", "")
  Text1.Text = Replace(Text1.Text, "F:\", "")
  MsgBox Text1.Text 'ðàáîòàåò
  Name "F:\" + Text1.Text As "F:\12341" ' íå ðàáîòàåò
  MsgBox "F:\" + Text1.Text + "As" + "F:\12341" 'ðàáîòàåò
 

  End If
   
  Next Fil
   Exit Sub
ErrHandle:
   'MsgBox "Íåò äîïóñêà ê ïàïêå """ & Fold.Path & """"
  Err.Clear
End Sub

                        