Cautare fisier

#1
Razvan88

Posted 02 January 2006 - 22:18

New Member

Grup: Members
Posts: 7
Înscris: 23.11.2005

Cum pot verifica daca un fisier exista intr-un director cunoscut ? De ex: Fishierul a.exe vreau sa il caut in "C:\Windows" .

Back to top

#2
RAZ

Posted 04 January 2006 - 10:51

Member

Grup: Members
Posts: 1,227
Înscris: 15.10.2004

Private Sub Form_Load()
   If FileExists("C:\Windows\a.exe") Then
	  MsgBox "file found"
   Else
	  MsgBox "file not found"
   End If
End Sub



Private Function FileExists(fullpath As String) As Boolean
 'cand fisierul nu exista vb sare cu erroare;)
 On Error GoTo ff	  
   If GetAttr(fullpath) Then
	 FileExists = True	 ' file exists
   Else
ff:
	FileExists = False	'file not found
   End If

End Function

Mai poti face cu API (FindFirstFile):

 wfd as WIN32_FIND_DATA
 hFind as long
		 hFind = FindFirstFile(fullpath, wfd)
		if  hFind == -1)
				FileExists =false
		else
				FindClose hFind 
				FileExists =true
	   end if

bafta!

Back to top

#3
Razvan88

Posted 06 January 2006 - 23:27

New Member

Grup: Members
Posts: 7
Înscris: 23.11.2005

Mersi mult !

Back to top

Anunturi

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

Cautare fisier

#1 Razvan88 Posted 02 January 2006 - 22:18

#2 RAZ Posted 04 January 2006 - 10:51

#3 Razvan88 Posted 06 January 2006 - 23:27

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Razvan88

Posted 02 January 2006 - 22:18

#2
RAZ

Posted 04 January 2006 - 10:51

#3
Razvan88

Posted 06 January 2006 - 23:27