Et lille program!

er det ikke lige så let bare at søge efter *.mp3 i stifinderen og så slette dem alle der?

eller skal det være et program der gør det automatisk?

Er i gang ..

Er også igang ..

@echo off
cls

echo Anti-MP3 fil 1.0
echo.
echo Vil du slette alle mp3 filer på c drevet?
choice /c:JN
if errorlevel N goto END
if errorlevel J goto SLET
pause
:SLET
cd c:\\
del *.mp3
cd c:\\windows\\skrivebord
del *.mp3
:END

>>Du kan selv tilføje flere mapper hvor du tror/ced der er mp3 filer i. Bare skriv stien og skriv så del *.mp3

Hvis du søger noget mere specifikt, så bare sig til, så prøver jeg at klare det.

Spike.

UNDSKYLD!!! Dette er en BAT-fil. Bare kopier den overstående text ind i en bat-fil og kør den!!

Jeg er ved at lave et program i VB der søger hele HDD\'en igennem for whatever filer du nu finder det nødvendigt at slette ..

Vil i have kildekode eller bare EXE (evt. m/ installations program)

tdaugaard>> jeg vil gerne have kildekode, EXE, og projectet, ALT...(hvis det er muligt!!)

mental:> se\'følig :-) Det gør det også lidt nemmere at sende så :-)
Jeg skal lige have fixet et par ting så er den der..

tdaugaard>> kan du lave det sådan at den kan slette biblioteket C:\\programmer\\napster eller C:\\program files\\napster også?

http://www.tdaugaard.dk/x/recdelete.zip

frmMain.frm
RecDelete.vbp
RecDelete.exe

søger hele C: igennem for det search pattern du nu synes og du kan også bestemme om du vil slette filerne eller kun søge efter dem...

mental:> tjoo .. det kan jeg nok godt .. hvad med Winamp ?

mental:> så skal jeg bare lige finde en måde at slette et helt bibliotek ....

ikke winamp, eleverne bruge den skod indbygget afspiller i napster...

det er fandme fedt!!

kan du ikke bare lave en checkbox hvor der står \"delete Napster\"

du kan også bare slette napster.exe...

*S* hi hi .. okæi :-)

mental:> *s* kanont .. jeg kan jo bare lade den slette napster.exe hvis den finder den :-)

jepz... =)

kanon

mental:> forresten .. jeg behøver ikke lave om på programmet ... hvis du trykker på \"Pattern...\" og skriver ;napster.exe efter resten så vil den goså søge efter og slette napster.exe

det ville være bedst med en check box med \"delete Napster\" og den så sletter napster.exe

mental:> det laver jeg så bare ..

tak

jeg er tilbage om 10min...

jeg skal ud og køre nu, men jeg kommer igen om en time til halvanden

ok

er du færdi med at køre...?

så er det nu jeg begynder at bliver krævende.

kan du få den til at generer en log? der skal bare stå hvor filerne lå... bare som en txt der ligger i samme i bibliotek som programmet eller ligende.

hvis du kan lave det får du 300 point oven i!

/mental

mental:> sorry .. jeg er hjemme nu .. jeg laver den til at skrive en liste over de slettede filer...

Hvis du henter den samme fil igen (http://www.tdaugaard.dk/x/recdelete.zip) så er den opdateret.

De er flg. muligheder i options nu:

Slet fundne filer.
Slet NAPSTER.EXE, hvis fundet.
Skriv fundne filnavne til logfil.

der er også rettet et par små fejl..

runtime error \'76\'...

jeg kører win2k... kan det have noget med det at gøre?

\"run-time error \'76\'

Path not found\"

ved du hvad der går galt?

sorry .. min outlook virker ikke så jeg har måtte sidde og læse min mail via telnet :-(
runtime error 76 .. det virker fint her ... har du VB på den maskine ?

jeg har VB 6.0 på min maksine der hjemme, den som jeg arbejdede på igår. men den virker heller ikke her på institutionens computere win95...

=(

Har du prøvet at køre projektet i VB og se hvor det er du får en fejl !?

nej, det skal jeg nok lige gøre når jeg kommer hjem!

Case False: Dir1.Path = CurrDir <--- der er den gul, i (General) - DirWalk

hedder dit c drev Q?? det kunne jo være det hehehe

eller hvis din computer står oven på en hytte ost det forringer kvaliteten af din procesor kraft MEGET!! har sel gjort den fejl engang....DET GØR MAN KUN EN GANG =)

-MystiQ-

...

mental:> prøv at skrive

MsgBox CurrDir

LIGE før den linie med Select Case hvori den linie du skriver indgår

mystiq:> nej, mit C drev hedder utroligt og overraskende nok - C - :-)

MsgBox CurrDir
Case False: Dir1.Path = CurrDir

Sådan? hvis ja, det virker stadig ikke... der er stadig det der er gult... =/

..det er stadig det samme der er gult...

(sådan... så kan det forstås! hehe)

mental:> ups .. jeg glemte nok lige at sige at du skulle fortællen mig hvad den skrev i MsgBox\'en lige inden der var fejl

her er lidt screenshots, det er lidt nemmere! =)

http://www.whitehat.dk/mental/recdelete/00000002.GIF <--- fejlen
http://www.whitehat.dk/mental/recdelete/00000003.GIF <--- fejlen i sourcen

okay .. det gjorde det ikke nemmere, men prøv at skrive

Debug.Print CurrDir der hvor jeg bad dig skrive MsgBox CurrDir ..

og fortæl mig så hvad den SIDSTE linie i Immediate vinduet er når fejlen kommer... det er fordi den angiver en sti som ikke findes.

http://www.whitehat.dk/mental/recdelete/00000004.GIF <-- sådan der?

nej, ikke helt.. den skal stå  LIGE før Select Case .. altås to linier længere oppe

http://www.whitehat.dk/mental/recdelete/00000005.GIF <--- åhh....? jeg er ikke lige så skarp...

*GG* hvis du så liiige placerer makøren umiddelbart EFTER

Debug.Print CurrDir

og trykker på enter, så er den der

LOL, ok

\"C:\\MP3\\\" skal jeg ikke bare ændre den til \"C:\\\" ???

ha ha ... jow .. det må du undskylde... jeg testede lokalt her og gad ikke sidde og søge hele min HDD igennem når mine MP3\'ere ligger i C:\\MP3

Ved

DirWalk strPattern, \"C:\\MP3\\\"

skriver du bare

DirWalk strPattern, \"C:\\\"

i (general) dirwalk?

jeg kan ikke finde C:\\MP3\\ lige nu....

I sub\'en

Private Sub cmdStart_Click()

linie 104

\"houston... we have NO problem!\"

kewl nok :-)

Ehm .. ikke for at klage, men

\"kan du få den til at generer en log? der skal bare stå hvor filerne lå... bare som en txt der ligger i samme i bibliotek som programmet eller ligende.

hvis du kan lave det får du 300 point oven i!\"

hvad blev der af dem ?

jeg ved det! hehe

jeg lagde oxo lige mærke til det!

jeg opretter lige et nyt spm til 300point! det har du fandme fortjent! =)

/mental

http://www.eksperten.dk/spm/43062 <--- der, hehe

tdaugaard>> tak for handlen!

Du har været en STOR hjælp!

/mental

Det var så lidt :-)
Jeg har været lidt dobbeltmoralsk ved at lave dette her program .. da jeg gik på handelsskolen hentede vi MP3\'ere i \"spandevis\" .. *GG*

hehe, hvor henne i landet gik du?
for det her program er til Tietgenskolen Odense (HG)....

*G* Jeg gik på Slagelse HS :-)
Er du IT-lærer/Sysadm. på den skole da ?

nej... ikke helt, hehe, jeg er en elev som arbejde lidt sammen med IT-lærer/admin. der.. =)

ha ha ha .. du er en af dem der er imod MP3, pirat software etc ?

Tdaugaard>Er det mon muligt at vi andre kan få en kopi af programmet ?

nej =P

men ude på skolen er HDD på nogen af computerne så fyldt op med *.mp3\'er at de ikke køre ordenligt eller de slet ikke kan køre! her for et par dage siden var det en maksine der kun have 450kb fri plads på c:! men den kunne stadig LIGE nå at starte windows op!

jeg kan lige det på whitehat 2 sek!

dkjohn:> Det kan der SLET ikke bliver tale om!!!! aldrig nogen sinde vil jeg give kode væk jeg har fået SÅ mange point for ... *LÅÅL**

http://www.tdaugaard.dk/x/recdelete.zip

be my guest :-)

mental:> det bliver liggende på tdaugaard.dk

*GG*

Takker

ok

=P

jeg takker af og slutter...

dkjohn: > Det var så lidt :-) Men husk lige at rettet DirWalk strPattern, \"C:\\MP3\\\" så der kun står \"C:\\\" ..

tdaugaard>> Jeg håber ikke, at du har noget imod, hvis jeg hugger lidt af din kode fra recdelete.zip... Det er nemlig noget hurtigere end at lave det selv; jeg er ved at lave et program, der skal \"vedligeholde\" en FTP-server, hvor eleverne på min skole kan gemme deres dokumenter - men selvfølgelig gemmer de alt muligt andet end dokumenter på den, og det skal der (sg#) sættes en stopper for.

driis:> du hugger alt det kode du har lyst til :-)

hhmmmm.....

det er en bug i programmet, det vil ikke virke på skolens computere... jeg får den der \"Run-time error \'76\' Path not found\"

og jeg har ændret \'C:\\mp3\\\' til \'C:\\\' men det virker ikke her, jeg har oxo prøvet at ændre det til \'c:\\windows\\\' men det virker stadig ikke...

har du nogen forslag...

(jeg har INGEN problemer med det der hjemme...)

/mental

p.s. de kører win95 her og jeg køre win2k der hjemme...

/mental

mental:> det kan jeg jo ikke rigtigt gøre noget ved ... jeg kan jo ikke rette en fejl som for mig at se ikke er der og når det virker hos dig så må det være noget på skolens computere (ehm .. mit gæt må være Win95!) der gør at det ikke virker, og da du sikkert ikke har nogen mulighed for at debugge projektet PÅ skolens computere har du heller ingen chance for at finde fejlen..

hhmm.....

ok

hvilket system bruger du?

Win98 Second Edition, VB 6.0 Enterprise (SP4)