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

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

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