diff options
| author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-21 16:27:19 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2016-10-21 16:27:19 -0400 |
| commit | 01b00fb56dbd59782d2b2334b0e0c13bc2d41e09 (patch) | |
| tree | 2fcd133337cb26bdb8b60e7cd01e082363e7f0c6 /copy.bas | |
| parent | 806192fe26b3bc69601c0bc1eeca96a0a9cbf901 (diff) | |
| download | gwblog-01b00fb56dbd59782d2b2334b0e0c13bc2d41e09.tar.gz gwblog-01b00fb56dbd59782d2b2334b0e0c13bc2d41e09.zip | |
Implemented deploying a static directory.
Diffstat (limited to 'copy.bas')
| -rw-r--r-- | copy.bas | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/copy.bas b/copy.bas new file mode 100644 index 0000000..75e2a2b --- /dev/null +++ b/copy.bas @@ -0,0 +1,14 @@ +21000 REM =========================== +21001 REM Copy the contents of a +21002 REM directory to another +21003 REM directory +21004 REM INPUT - SRCD$ Source dir +21005 REM DESTD$ Destination +21006 REM =========================== +21010 DIREC$ = SRCD$ +21020 GOSUB 15000 +21030 FOR ICF = 1 TO LC +21040 FULLFILE$ = SRCD$ + "\" + FL$[ICF] +21050 SHELL "COPY "+FULLFILE$+" "+DESTD$ +21060 NEXT ICF +21070 RETURN |