[ابو روضة]

(25-07-18, 01:18 PM)Done كتب : سيتم تقسيم محتوى التكست بوكت من الفاصلة وثم المرور على عانصر التقسيم وحذفها من اسم الملف

PHP كود :

Dim d As DirectoryInfo = New DirectoryInfo("C:\DirectoryToAccess")
Dim infos As FileInfo() = d.GetFiles("*.*")
For Each f As FileInfo In infos
    Dim fn As String = f.Name
    For Each x As String In TextBox1.Text.Split(",")
        fn = fn.Replace(x, "")
    Next
    If f.Name <> fn Then
        My.Computer.FileSystem.RenameFile(f.FullName, fn)
    End If
Next 


الله يسعدك ويبارك بعمرك يارب فعلا هذا ما كنت أبحث عنه ونجحت فعلا....