![]() |
Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. 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