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

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

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