[Done]

PHP كود :

Dim x As String = "CrazyTalk Animator Preview"
Dim d As DirectoryInfo = New DirectoryInfo("C:\DirectoryToAccess")
Dim infos As FileInfo() = d.GetFiles(x & "*.*")
For Each f As FileInfo In infos
    Dim fn As String = f.FullName
    fn = fn.Replace(x, "")
    My.Computer.FileSystem.RenameFile(f.FullName, Path.GetFileName(fn))
Next