Code archives/File Utilities/CopyDirectory([From], [To])
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Have fun :) cu, ST. | |||||
Function CopyDirectory(From_$, To_$) Local MyDir, MyFile$ MyDir = ReadDir(From_$) MyFile$ = NextFile$(MyDir) MyFile$ = NextFile$(MyDir) Repeat MyFile$ = NextFile$(MyDir) If MyFile$ = "" Then Exit If FileType(From_$ + "\" + MyFile$) = 2 Then CreateDir To_$ + "\" + MyFile$ CopyDirectory(From_$ + "\" + MyFile$, To_$ + "\" + MyFile$) Else CopyFile From_$ + "\" + MyFile$, To_$ + "\" + MyFile$ End If Forever CloseDir(MyDir) End Function |
Comments
| ||
yeah.. latest tech. written in basic.. |
Code Archives Forum