| |
|
|
 AndreasS | ¡Hola zusammen !
Ne Ewigkeit es her - viel a viel Stress ... aber nun veces otra vez: WEIS JEMAND RAT ? Yo möchte Systemweit, also encima todos vorhandenen Laufwerke, cierto Archivos encontrar, z.B. con el Endung *.dot. Diese debería entonces en un Resbalón en una más Laufwerk (extern) kopiert voluntad. Yo bin veces otra vez Systemblind ....
Gracias, danke LG Andreas |
|
|
| |
|
|
|
 Julian Schmidt | Schaumal. KompilierenMarcaSeparaciónDef 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
Ist ungetestet, pero yo denke lo debería trabajo. |
|
|
| |
|
|
|
 | |
|
| |
|
|