Program care sterge un fisier

#1
stefan07

Posted 28 January 2009 - 21:28

Member

Grup: Members
Posts: 661
Înscris: 21.04.2007

As nevoie de un program care sa stearga un fisier(sau mai multe) dintr-un folder specificat ,daca in numele fisierului se gaseste un cuvant cheie. De exemplu : peisaj . Sa stearga toate fisierele ce contin cuvantul peisaj.Cum as putea sa fac?

Back to top

#2
queensoft

Posted 28 January 2009 - 21:38

Trust no one

Grup: Banned
Posts: 16,079
Înscris: 26.11.2005

Folosesti modulul atasat.
Apelezi asa:

	Dim Temcol As New Collection
	Dim i As Long
	On Error Resume Next
	Set Temcol = FindFiles("", "c:\folder\")
	For i = 1 To Temcol.Count
		Debug.Print Temcol(i)
	Next i
	Debug.Print Temcol.Count

Modifici "c:\folder\" cu folderul dorit, normal.
Dupa linia asta: Debug.Print Temcol(i) - pui instructiunea de sters fisierul - Kill .....

In fisierul modul Find_File.bas modifici linia asta, incluzi acolo cuvintele cheie

Const exts As String = "avi,mpg,mpeg,mpv,mov,3gp,divx,m1v,mp4,wmv"

Attached Files

Find_File.zip 1.32K 32 downloads

Back to top

#3
stefan07

Posted 28 January 2009 - 22:15

Member

Grup: Members
Posts: 661
Înscris: 21.04.2007

Da,merge bine.Mersi

Back to top

#4
msmihai

Posted 29 January 2009 - 00:50

Senior Member

Grup: Senior Members
Posts: 5,271
Înscris: 02.09.2006

Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...

Back to top

#5
Ann0nim

Posted 29 January 2009 - 17:03

Active Member

Grup: Members
Posts: 1,082
Înscris: 07.04.2008

msmihai, on Jan 29 2009, 00:50, said:

Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...

la asta ma gandeam si eu inainte sa citesc ce ai scris tu :lol:

Back to top

#6
stefan07

Posted 29 January 2009 - 21:00

Member

Grup: Members
Posts: 661
Înscris: 21.04.2007

msmihai, on Jan 29 2009, 00:50, said:

Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...

Mda,m-am gandit la asta,dar la mine nu e doar fisierul VBS. Poate cineva sa il faca sa fie doar fisierul VBS?

Back to top

#7
Dj_Eagle

Posted 07 February 2009 - 21:44

Member

Grup: Members
Posts: 244
Înscris: 12.04.2007

Si apropo de visusul anti-manele

)

Am realizat (tot in VB6) un mic programel "Files Finder" in care poti cauta fisiere (exact ca Search-ul din WONDOWS) si apoi le poti sterge.

Cum zice si msmihai , poti realiza foarte usor un virus ANTI MANELE.

Back to top

Anunturi

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

Program care sterge un fisier

#1 stefan07 Posted 28 January 2009 - 21:28

#2 queensoft Posted 28 January 2009 - 21:38

Attached Files

#3 stefan07 Posted 28 January 2009 - 22:15

#4 msmihai Posted 29 January 2009 - 00:50

#5 Ann0nim Posted 29 January 2009 - 17:03

#6 stefan07 Posted 29 January 2009 - 21:00

#7 Dj_Eagle Posted 07 February 2009 - 21:44

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
stefan07

Posted 28 January 2009 - 21:28

#2
queensoft

Posted 28 January 2009 - 21:38

#3
stefan07

Posted 28 January 2009 - 22:15

#4
msmihai

Posted 29 January 2009 - 00:50

#5
Ann0nim

Posted 29 January 2009 - 17:03

#6
stefan07

Posted 29 January 2009 - 21:00

#7
Dj_Eagle

Posted 07 February 2009 - 21:44