| |
|
|
 AndreasS | Hello together !
Ne eternity is it since - plenty To plenty Stress ... but now time again: WEIS JEMAND RAT ? i want Systemweit, means over any vorhandenen drives, defined Files find, z.B. with the Endung *.dot. These should then in a Slip on one other drive (extern) copies go. i'm time again Systemblind ....
thanks, thanks LG Andreas |
|
|
| |
|
|
|
 Julian Schmidt | Schaumal. CompileMarkSeparationDef DateiName(1) SubStr$(@$(1),-1,"\\")
Def DateiPfad(1) Translate$(@$(1),("\\" + DateiName(@$(1))),"")
CLS
Var Datei_Liste&=Create("List", 0)
whileloop 26
If Substr$("A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;X;Y;Z",&loop,";")<>"D"
ChDir Substr$("A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;X;Y;Z",&loop,";")+":"
AddFiles *"*.dot"
Endif
EndWhile
Whileloop 0,GetCount(Datei_Liste&),1
COPY GetString$(Datei_Liste&,&loop) > "D:\\"+DateiName(GetString$(Datei_Liste&,&loop))
Endwhile
is ungetestet, but I think it ought to functions. |
|
|
| |
|
|
|
 | |
|
| |
|
|