Copy Files

[morika]

سلام
چه جوری میشه تمام فایلهای یک Folder رو بدون خود خود Folder ( فقط فایها ) رو در یک Folder دیگه کپی کرد؟

[Mani_rf]

از این کد می توانی استفاده کنی.


Const Source As String = "C:\OldFolder"
Const Destention As String = "C:\NewFolder"

For Each File As String In My.Computer.FileSystem.GetFiles(Source)
Dim Couter As Short = Len(File)
While Not Mid(File, Couter, 1) = "\"
Couter -= 1
End While
File = Mid(File, Couter, Len(File) - Couter + 1)
FileCopy(Source & File, Destention & File)
Next