| |
| |
|
AndreasS | allô zusammen !
Ne Ewigkeit ist es her - viel trop viel Stress ... mais eh bien la fois wieder:
WEIS JEMAND RAT ?
je voudrais Systemweit, alors sur alle vorhandenen Laufwerke, bestimmte Fichiers trouver, z.B. avec qui Endung *.dot. cet devoir ensuite dans einem Glissement sur un d'autre Laufwerk (extern) kopiert volonté.
je suis la fois wieder Systemblind ....
merci, merci
LG Andreas |
|
| |
| |
| |
|
|
Julian
Schmidt | Schaumal.
KompilierenMarqueSéparationDef 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, mais je denke es sollte marcher. |
|
| |
| |
| |
|
|
 | |
| |
| |
| |
|
(903)
Deutsch
English
Français
Español
Italia