Hi mal ein kleines nützliches Tool "desktoparranger" welches aus Langeweile entstand.
Was macht es ?
-erstellt und Kopiert dateien in Verzeichnisse anhand der Dateimaske.
Warum ?
- Die Grundidee war ein Tool zu schreiben welches den Desktop aufräumt
bsp.
*.txt > Ordner "txt" < alle *.txt dateien.
Beispielbilder:
vorher:
http://imgload.info/image/?filename=15zu329kg782u15.png
nachher:
http://imgload.info/image/?filename=4cweksdc848dgek.png
Achtung und todo:
.................................................................................
fixed.
Code
WindowTitle "desktoparranger"
WindowStyle 24
Declare K%,pfad$,l&,origfilename$
l&=@Create("List",1)
origfilename$="desktoparranger.prf"
Proc finddesk
Declare TestPath$
TestPath$ = GetEnv$("USERPROFILE") + "\\Desktop"
Case DirExists(TestPath$) = 1 : pfad$ = TestPath$
EndProc
Proc Findfiles
declare file$,newdir$
IfNot pfad$ = ""
ChDir pfad$
@FindFirst$("*.*")
WhileNot %IOResult
File$ = @FindNext$()
@AddString(l&,File$)
EndWhile
WhileLoop @GetCount(l&)
File$ = GetString$(l&,&loop)
If @Left$(File$,1) = "['
@DeleteString(l&,&loop)
Else
ifNot ((File$ = origfilename$) Or (File$ = ''))
Assign #1,File$
If GetFAttr(#1) & $04 = 4
@DeleteString(l&,&loop)
Else
Newdir$ = @SubStr$(File$,2,'.')
Case DirExists(Newdir$) = 0 : MkDir Newdir$
Copy File$ > Newdir$+'\'+File$
Assign #1, File$
Erase #1
EndIf
EndIf
EndIf
EndWhile
EndIf
EndProc
Proc Clean
finddesk()
findfiles()
EndProc
K% = @MessageBox('Desktop neu anordnen ?','Frage',292)
Case K% = 6 : Clean()
End
Alles anzeigen
ansonsten Trotzdem viel Spaß damit
Sollten noch Fehler auftreten bitte bescheid sagen.