CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jensjta Nybegynder

08. juni 1999 - 16:55 Der er 9 kommentarer og
1 løsning

FileExists

Er der nogen der ved om man kan bruge FileExists metoden til at søge efter en bestemt fil i et bestemt biblotek?
Jeg prøver med følgende kode, men den virker ikke som den burde :-)
<%
Sub PdfFileExists(name)
Dim fSystem, tag, fil
tag = "<img src=''" & name & ".gif'' border=''0''>"
fil = name & ".gif"
Set fSystem = CreateObject("Scripting.FileSystemObject")
if (fSystem.FileExists(fil)) then
response.write(tag)
end if
end sub
%>

Man kan selvfølgelig kode så den kigger på hver fil i en given folder med GetFolder, Files og en løkke. Men det bliver hurtigt meget langsomt.

</jens-jacob>

Synes godt om

Dan Nim Seniormester

08. juni 1999 - 17:12 #1

prøv med :

<%
name = "bla.gif"
Set FileSystem = CreateObject("Scripting.FileSystemObject")
If FileSystem.FileExists("c:\internet\"& name) Then
Response.write "JAA"
else
Response.write "nej"
end if
%>

Synes godt om

hornshoj Nybegynder

08. juni 1999 - 17:16 #2

Øhh jeg synes dette er en bedre måde:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
FUNCTION FileExists (ByVal FileName)
on error resume next
FileName = Server.MapPath (FileName)
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set InStream = FileObject.OpenTextFile (FileName, 1, FALSE, FALSE)
if err = 0 then
FileExists = TRUE
else
FileExists = FALSE
end if
end Function
</SCRIPT>

Synes godt om

Dan Nim Seniormester

08. juni 1999 - 17:25 #3

hornshoj....øøø, hvorfor fan.. synes du det ?.

Helt ærligt..så er mit script da MEGET letteer at finde rundt i.

Synes godt om

hornshoj Nybegynder

08. juni 1999 - 17:41 #4

Det synes jeg fordi:
1. God programmeringsskik...
Hvis man nu laver en funktion, så kan den også bruges af andre...
2. Dit script forudsætter, at filen er placeret på c-drevet.. Hvor ved du det fra?
3. Ja, dit script er lettere at finde rundt i, men man behøver ikke finde rundt i mit... man kalder bare funktionen...

P.S. Jeg skrev ikke scriptet for at tage dine point...

Synes godt om

Dan Nim Seniormester

08. juni 1999 - 19:54 #5

Okay.....

Hummm, mit script forudsætter da ikke at filen ligger på C:
Det var såmen bare for at VISE ham hvordan han skulle gøre. Desuden kan man også bare lave det om....

Synes godt om

hornshoj Nybegynder

08. juni 1999 - 20:26 #6

...Ups... Jeg må vidst have trådt et forkert sted...
Jeg troede denne site, var til for at hjælpe folk... På flere forskellige måder.
Hvis du vil fortsætte, så kan jeg oprette et spørgsmål... (O:

Synes godt om

Dan Nim Seniormester

08. juni 1999 - 22:43 #7

nej nej nej....slet ikke.

argh..hader når jeg for mig forklaert forkert...sker ALT for tit :o(

Synes godt om

erikjacobsen Ekspert

09. juni 1999 - 00:07 #8

Hmm, forskellen på de 2 scripts kan måske ligge i hastighed.
I hornshojs åbnes filen til læsning, hvilket betyder, at der skal
indlæses en del af filen i en buffer (hvis den findes), mens der
ikke skal indlæses noget af filen i chatstuffs, som til gengæld
ikke ligefrem er ret generel ;-)

Så hvis vi nu krydser de 2: altså laver en generel funktion, der
bruger den indbyggede FileExists, så tror jeg vi har det ultimative
svar!

Synes godt om

hornshoj Nybegynder

09. juni 1999 - 09:21 #9

Der er bare den lille hage... Mit script skal jo også kun bruges, hvis man virkelig ønsker at læse den fil man spørger efter... Det kan jeg godt se, at gik spm ikke ud på fra starten...

Synes godt om

mgade Nybegynder

04. oktober 1999 - 08:36 #10

Ja ja et gammelt spørgsmål, men jeg brugte det til at løse mit problem. Synes bare nedenstående har noget for sig...

Set fs = CreateObject("Scripting.FileSystemObject")
billedefil = server.mappath("etsubdir\" & FornavnTekst & EfternavnTekst & ".jpg")
If fs.FileExists(billedefil) then
Response.Write "<IMG SRC=""" & billedefil & """ alt=""Billede af noget"" >"
Else
Response.write "Billede findes ikke"
end if
'fs.close close understøttes ikke
Set fs = Nothing

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS