Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Protejare pardoseala in timpul am...

Sfat achizitie indoor cyicling sp...

Completarea unui citat "... i...

Formula excel in functie de Max
 achizitie p20 pro

sonerie usa contact magnetic

La multi ani @SorinGT!

Masina topaie/se balangane cu amo...
 Poti sa te plimbi cu drona la deal?

Raiffeisen Digital Bank

Kyocera Ecosys FS-C2626MFP culori...

Cine sunt, mai exact, parvenitii ...
 In ce tip de magazin gasesc acumu...

Range extender sau antena?

Casa/vila in Bucuresti/Ilfov

Cine-s mai harnici in UE?
 

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,259
  • Î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 cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

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