Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
JOKER 2: Folie à Deux (2024)

Achizitionare EdgeRouter X si AP ...

Phising pe Autovit

ANCOM propune dereglementarea pie...
 Viespi, viespi, viespi

Teapa abonament vodafone

Aplicatie blacklist cu mesagerie ...

Socul viitorului
 Probleme pornire 1.6 TDI CLHA

Whatsapp Web pe Xp

Am desfundat scurgerea de la cada...

Înnadire cablu UTP
 Anorexia in Romania

Recomandare casca telefon

Recomandare set oale inox 500-100...

Cumparare iPhone 15 din USA.
 

Program care sterge un fisier

- - - - -
  • Please log in to reply
6 replies to this topic

#1
stefan07

stefan07

    Member

  • Grup: Members
  • Posts: 658
  • Î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?

#2
queensoft

queensoft

    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



#3
stefan07

stefan07

    Member

  • Grup: Members
  • Posts: 658
  • Înscris: 21.04.2007
Da,merge bine.Mersi

#4
msmihai

msmihai

    Senior Member

  • Grup: Senior Members
  • Posts: 5,261
  • Înscris: 02.09.2006
Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...

#5
Ann0nim

Ann0nim

    Active Member

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

View Postmsmihai, 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:

#6
stefan07

stefan07

    Member

  • Grup: Members
  • Posts: 658
  • Înscris: 21.04.2007

View Postmsmihai, 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?

#7
Dj_Eagle

Dj_Eagle

    Member

  • Grup: Members
  • Posts: 243
  • Î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.

Anunturi

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate