---
title: "Om fil finns då ska den inte upploada igen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41911-om-fil-finns-då-ska-den-inte-upploada-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2002-04-17T19:39:57.000Z"
updated: "2002-04-24T06:14:15.000Z"
replies: 27
views: 716
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/41911-om-fil-finns-då-ska-den-inte-upploada-igen"
---

# Om fil finns då ska den inte upploada igen

_Sida 1 av 2._

## #1 — voigtann1, 2002-04-17T19:39Z

Jag kör ASP smart Upload med denna kod:

```
<%
   On Error Resume Next
'  Variables
'  *********
   Dim mySmartUpload
   Dim file
   Dim oConn
   Dim oRs
   Dim intCount
   intCount=0
        
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
   mySmartUpload.AllowedFilesList = "cfg,txt,zip,fcf"

'  DeniedFilesList can also be used :
   ' Allow all files except exe, bat and asp
   ' ***************************************
   ' mySmartUpload.DeniedFilesList = "exe,bat,asp,html"

'  Deny physical path
'  *******************
   mySmartUpload.DenyPhysicalPath = True

'  Only allow files smaller than 50000 bytes
'  *****************************************
   mySmartUpload.MaxFileSize = 50000

'  Upload
'  ******
   mySmartUpload.Upload

'  Connect to the DB
'  *****************
   Set oConn = Server.CreateObject("ADODB.Connection")
   curDir = Server.MapPath("db/config.mdb")
   oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
   strSQL = "SELECT user,game,mo,global,version,name,info,FILENAME,FILE FROM Files"

   Set oRs = Server.CreateObject("ADODB.recordset")
   Set oRs.ActiveConnection = oConn
   oRs.Source = strSQL
   oRs.LockType = 3
   oRs.Open

'  Select each file
'  ****************
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
         oRs.AddNew
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
	if mySmartUpload.Form("info") = "" then
		oRs("info")		=	""
	else
		oRs("info")		=	mySmartUpload.Form("info")	
	end if

         file.FileToField oRs.Fields("FILE")
		oRs("FILENAME")		=	file.FileName
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
		oRs("info")		=	mySmartUpload.Form("info")
if mySmartUpload.Form("global") = false then
		oRs("global")		=	false
else
		oRs("global")		=	true
end if
         oRs.Update
         intCount = intCount + 1
         intCount = mySmartUpload.Save("members/" & session("user"))
      End If
   Next

'  Trap errors
'  ***********
   If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
   Else
   '  Display the number of files uploaded
   '  ************************************
      Response.Write(intCount & " file(s) uploaded.")
   End If

'  Destruction
'  ***********
   oRs.Close
   oConn.Close
   Set oRs = Nothing 
   Set oConn = Nothing 
response.redirect "archive.asp?member=" & session("user")
%>
```

Hur gör man så att den kollar först om filen redan finns i databasen för just den användaren?

Permalänk: https://www.webforum.nu/p/41911

## #2 — Jesper T, 2002-04-17T20:47Z

Med FSO kan du göra detta, men vill du kolla i databasen får du väl göra ngn if-sats?!

```
<% 
Set file = Server.CreateObject( "Scripting.FileSystemObject" ) 
If file.FileExists( "/sökvägen till din fil" ) Then 
Response.Write"Finns" 
Else 
Response.Write"Finns inte" 
End If 
%>
```

Permalänk: https://www.webforum.nu/p/648333

## #3 — voigtann1, 2002-04-18T05:03Z

\<font class="text1"\>

\<%
   On Error Resume Next
'  Variables
'  \*\*\*\*\*\*\*\*\*
   Dim mySmartUpload
   Dim file
   Dim oConn
   Dim oRs
   Dim intCount
   intCount=0
        
'  Object creation
'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   mySmartUpload.AllowedFilesList = "cfg,txt,zip,fcf"

'  DeniedFilesList can also be used :
   ' Allow all files except exe, bat and asp
   ' \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   ' mySmartUpload.DeniedFilesList = "exe,bat,asp,html"

'  Deny physical path
'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   mySmartUpload.DenyPhysicalPath = True

'  Only allow files smaller than 50000 bytes
'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   mySmartUpload.MaxFileSize = 50000

'  Upload
'  \*\*\*\*\*\*
   mySmartUpload.Upload

'  Connect to the DB
'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   Set oConn = Server.CreateObject("ADODB.Connection")
   curDir = Server.MapPath("databas/databas.mdb")
   oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (\*.mdb)};DriverId=25;FIL=MS Access;"

Set file = Server.CreateObject( "Scripting.FileSystemObject" ) 
If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then 
Response.Write"Finns" 
Else 

'  Open a recordset
'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   strSQL = "SELECT user,game,mo,global,version,name,info,FILENAME,FILE FROM Files"

   Set oRs = Server.CreateObject("ADODB.recordset")
   Set oRs.ActiveConnection = oConn
   oRs.Source = strSQL
   oRs.LockType = 3
   oRs.Open

'  Select each file
'  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
         oRs.AddNew
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
	if mySmartUpload.Form("info") = "" then
		oRs("info")		=	""
	else
		oRs("info")		=	mySmartUpload.Form("info")	
	end if

         file.FileToField oRs.Fields("FILE")
		oRs("FILENAME")		=	file.FileName
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
		oRs("info")		=	mySmartUpload.Form("info")
if mySmartUpload.Form("global") = false then
		oRs("global")		=	false
else
		oRs("global")		=	true
end if
         oRs.Update
         intCount = intCount + 1
         intCount = mySmartUpload.Save("members/" & session("user"))
      End If
   Next

'  Trap errors
'  \*\*\*\*\*\*\*\*\*\*\*
   If Err Then
      Response.Write("\<b\>Wrong selection : \</b\>" & Err.description)
   Else
   '  Display the number of files uploaded
   '  \*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
      Response.Write(intCount & " file(s) uploaded.")
   End If

'  Destruction
'  \*\*\*\*\*\*\*\*\*\*\*
   oRs.Close
   oConn.Close
   Set oRs = Nothing 
   Set oConn = Nothing 
response.redirect "archive.asp?member=" & session("user")

Response.Write"Finns inte" 
End If 
%\>\</font\>

Detta fungera inte =(

Permalänk: https://www.webforum.nu/p/648382

## #4 — erka, 2002-04-18T05:23Z

If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then 

använda server mappath här istället

Permalänk: https://www.webforum.nu/p/648386

## #5 — voigtann1, 2002-04-18T19:33Z

hur då?

Permalänk: https://www.webforum.nu/p/649032

## #6 — solbulle, 2002-04-18T19:41Z

```
Set file = Server.CreateObject( "Scripting.FileSystemObject" ) 
If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then 
Response.Write"Finns" 
Else
```

Nu skriver du väl att om filen INTE finns, skriv ut "Finns" annars (om filen finns) lägg in i databas osv...

Det blir väl lite fel?

Permalänk: https://www.webforum.nu/p/649039

## #7 — voigtann1, 2002-04-19T14:25Z

mm =)

Permalänk: https://www.webforum.nu/p/649742

## #8 — voigtann1, 2002-04-19T14:36Z

Nu kör jag:

```
<%
   On Error Resume Next
'  Variables
'  *********
   Dim mySmartUpload
   Dim file
   Dim oConn
   Dim oRs
   Dim intCount
   intCount=0
        
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
   mySmartUpload.AllowedFilesList = "cfg,txt,zip,fcf"

'  DeniedFilesList can also be used :
   ' Allow all files except exe, bat and asp
   ' ***************************************
   ' mySmartUpload.DeniedFilesList = "exe,bat,asp,html"

'  Deny physical path
'  *******************
   mySmartUpload.DenyPhysicalPath = True

'  Only allow files smaller than 50000 bytes
'  *****************************************
   mySmartUpload.MaxFileSize = 50000

'  Upload
'  ******
   mySmartUpload.Upload

'  Connect to the DB
'  *****************
   Set oConn = Server.CreateObject("ADODB.Connection")
   curDir = Server.MapPath("db/config.mdb")
   oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

[b]Set file = Server.CreateObject( "Scripting.FileSystemObject" ) 
If not file.FileExists( "/members/"& session("user") & "/" & file.FileName) Then 
[/b]

'  Open a recordset
'  ****************
   strSQL = "SELECT user,game,mo,global,version,name,info,FILENAME,FILE FROM Files"

   Set oRs = Server.CreateObject("ADODB.recordset")
   Set oRs.ActiveConnection = oConn
   oRs.Source = strSQL
   oRs.LockType = 3
   oRs.Open

'  Select each file
'  ****************
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
         oRs.AddNew
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
	if mySmartUpload.Form("info") = "" then
		oRs("info")		=	""
	else
		oRs("info")		=	mySmartUpload.Form("info")	
	end if

         file.FileToField oRs.Fields("FILE")
		oRs("FILENAME")		=	file.FileName
		oRs("user")		=	session("user")
		oRs("game")		=	mySmartUpload.Form("game")
		oRs("mo")		=	mySmartUpload.Form("MODI")
		oRs("version")		=	mySmartUpload.Form("version")
		oRs("name")		=	mySmartUpload.Form("configname")
		oRs("info")		=	mySmartUpload.Form("info")
if mySmartUpload.Form("global") = false then
		oRs("global")		=	false
else
		oRs("global")		=	true
end if
         oRs.Update
         intCount = intCount + 1
         intCount = mySmartUpload.Save("members/" & session("user"))
      End If
   Next

'  Trap errors
'  ***********
   If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
   Else
   '  Display the number of files uploaded
   '  ************************************
      Response.Write(intCount & " file(s) uploaded.")
   End If

'  Destruction
'  ***********
   oRs.Close
   oConn.Close
   Set oRs = Nothing 
   Set oConn = Nothing 
response.redirect "archive.asp?member=" & session("user")
[b]else
Response.Write"Finns" 
end if[/b]
%>
```

Och den lägger upp filen ändå... även om den finns uppe =(

Permalänk: https://www.webforum.nu/p/649754

## #9 — voigtann1, 2002-04-19T18:15Z

vad är det för fel? e det ASP-Smart upload som är knäpp?

Permalänk: https://www.webforum.nu/p/650069

## #10 — solbulle, 2002-04-19T19:06Z

Du kan ju börja med att kommentera bort:

 On Error Resume Next

 och se om det ger dig något.

Permalänk: https://www.webforum.nu/p/650116

## #11 — voigtann1, 2002-04-19T21:49Z

Testade lite nu får jag bara errors =):

Error Type:
Microsoft VBScript compilation (0x800A0409)
Unterminated string constant
/voigtan/config/Sample4.asp, line 46, column 78

```
If file.FileExists( "members/"& session("user") & "/" & file.FileName &") Then
```

Permalänk: https://www.webforum.nu/p/650264

## #12 — juventus1, 2002-04-20T08:10Z

```
If file.FileExists("members/" & session("user") & "/" & file.FileName) Then
```

Permalänk: https://www.webforum.nu/p/650448

## #13 — voigtann1, 2002-04-20T14:43Z

Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'FileName'
/voigtan/config/Sample4.asp, line 47

```
 If file.FileExists("members/" & session("user") & "/" & file.FileName) Then
```

varför? allt som jag tycker ska fungera gör det inte!

Permalänk: https://www.webforum.nu/p/650707

## #14 — emission, 2002-04-20T15:07Z

file.name

Permalänk: https://www.webforum.nu/p/650721

## #15 — voigtann1, 2002-04-20T15:16Z

tyvärr =(
jag använder för att lägga upp den info i databasen:
oRs("FILENAME")		=	file.FileName

så det borde ju ändå vara file.filename eller?

Permalänk: https://www.webforum.nu/p/650726

## #16 — solbulle, 2002-04-20T16:04Z

Vad skrivs ut om du skriver:

```
response.write "/members/"& session("user") & "/" & file.FileName
```

?

Skrivs rätt fil o sökväg ut då?

Permalänk: https://www.webforum.nu/p/650764

## #17 — voigtann1, 2002-04-20T18:13Z

får:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''

Permalänk: https://www.webforum.nu/p/653737

## #18 — solbulle, 2002-04-20T18:59Z

mao verkar det bli fel med file.FileName eller?

Permalänk: https://www.webforum.nu/p/653807

## #19 — voigtann1, 2002-04-20T19:25Z

ja... jag tror det.. men hur ska man då kunna lösa det? det måste ju kunna göras

Permalänk: https://www.webforum.nu/p/653839

## #20 — emission, 2002-04-21T09:52Z

Ah, sorry, såg fel.

Du kollar file.filename, men **file** är ju inte filen, utan ditt FileSystemObject.  Om du bara kan ladda upp en fil i formuläret så kan du nog köra med

If not file.FileExists( "/members/"& session("user") & "/" & mySmartUpload.Files(1).FileName) Then 

annar får du lägga kolla inne i loopen

Permalänk: https://www.webforum.nu/p/654286

---

Tråden på webben: https://www.webforum.nu/amne/asp/41911-om-fil-finns-då-ska-den-inte-upploada-igen  
Nästa sida: https://www.webforum.nu/amne/asp/41911-om-fil-finns-då-ska-den-inte-upploada-igen/page2.md