Kontrol af fil og/eller bibliotek

Du kan checkke om en fil findes med :

<%
Set FileSystem = CreateObject("Scripting.FileSystemObject")
If FileSystem.FileExists("c:\temp\fil.txt") Then
Response.write "Jaaaa, jeg findes"
else
Response.write "nejj, jeg findes ikke"
end if
%>

arrrrr. Det må du sku undskyld !.

Jeg troede at det var i ASP kategorien vi har. Sorry !
Så kan jeg ikke hjælpe dig !

Men afvis mig igen :(

Jeg vil gerne svare når du har afvist Chatstuff, ellers får han pointene

Jeg har benyttet flere måder, en ret simpel er:
If Dir(netsti & "byport.bmp") = "BYPORT.BMP" Then
Hus at bruge caps for den fil du tester efter.
M.v.h. Joern

Se her

If Dir(strFilnavn)="" then
  msgbox "Fil eksisterer ikke"
else
  msgbox "Fil eksisterer"
endif
If Dir(strFilnavn,vbDirectory)="" then
  msgbox "Directory eksisterer ikke"
else
  msgbox "Directory eksisterer"
endif

Tak for svaret.

Efternøler fra Jørn

Opret denne function under General

Function ExistFile (navn As String) As Integer
  ExistFile = Len(Dir$(navn)) > 0
End Function

Funktionen kan da benyttes i hele modulet således:  Et tekstfelt hedder "ind"

Sub knap_Click ()
  a = app.Path & "\" & ind.Text
  If ExistFile(a) Then svar.Caption = "Ok" Else svar.Caption = "Nej"
End Sub

I stedet for app.path kan du have et andet felt eller hvor dir-navnet nu skal komme fra.

Du kan teste på directories ved at skrive f. eks.  c:\windows\ som navn i ind-feltet.

M.v.h.