![]() |
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 |
Program care sterge un fisier
Last Updated: Feb 07 2009 21:44, Started by
stefan07
, Jan 28 2009 21:28
·
0

#1
Posted 28 January 2009 - 21:28

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
Posted 28 January 2009 - 21:38

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.CountModifici "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 |
#4
Posted 29 January 2009 - 00:50

Copii . Lectia 2 . Inlocuiti cuvantul "peisaj" cu cuvantul "guta". Ati realizat un virus anti manele...
|
#5
Posted 29 January 2009 - 17:03

#6
Posted 29 January 2009 - 21:00

#7
Posted 07 February 2009 - 21:44

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
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users