| |
| |
|
AndreasS | Hallo zusammen !
Ne Ewigkeit ist es her - viel zu viel Stress ... aber nun mal wieder:
WEIS JEMAND RAT ?
Ich möchte Systemweit, also über alle vorhandenen Laufwerke, bestimmte Dateien finden, z.B. mit der Endung *.dot. Diese sollen dann in einem Rutsch auf ein anderes Laufwerk (extern) kopiert werden.
Ich bin mal wieder Systemblind ....
Danke, danke
LG Andreas |
|
| |
| |
| |
|
|
Julian
Schmidt | Schaumal.
KompilierenMarkierenSeparierenDef 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, aber ich denke es sollte funktionieren. |
|
| |
| |
| |
|
|
 | |
| |
| |
| |
|
(266)
Deutsch
English
Français
Español
Italia