Avatar billede tblaster Nybegynder
03. juli 2002 - 11:55 Der er 5 kommentarer og
1 løsning

aspSmartupload

Hejsa

Jeg har følgende kode som jeg bruge til at uploade filer med. Hvordan ændre jeg den så hvis der uploades en fil som allerede eksister så tilføjer den noget i stil med (1) på navnet?

<%
  On Error Resume Next

'  Variables
'  *********
  Dim mySmartUpload
  Dim intCount
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow txt or htm files
'  ***************************
  mySmartUpload.AllowedFilesList = "doc,pdf"

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

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

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
  intCount = mySmartUpload.Save("/Stillinger")
Avatar billede tmceu Praktikant
03. juli 2002 - 12:58 #1
Du kan bruge FileExists metoden fra FSO. Men jeg vil mene at den selv tilføjer det for dig.

Følgende eksempel er taget fra VBScript dokumentationen:

Function ReportFileStatus(filespec)
  Dim fso, msg
  Set fso = CreateObject("Scripting.FileSystemObject")
  If (fso.FileExists(filespec)) Then
      msg = filespec & " exists."
  Else
      msg = filespec & " doesn't exist."
  End If
  ReportFileStatus = msg
End Function
Avatar billede webbe Nybegynder
03. juli 2002 - 13:38 #2
Eller:

mySmartUpload.OverWriteFiles = False

Ved dog ikke om det er den kommando i ASPSmartUpload, men det er det i hvetr fald med ASPUpload - og den giver et filnavn der hedder filnavn(1).jpg hvis filnavn.jpg allerede eksisterer i mappen.
Avatar billede tblaster Nybegynder
03. juli 2002 - 14:33 #3
Tmceu ... jeg kan ikke få din til at virke ...
Webbe ... din understøttes ikke af ASPSmartUpload ...
Avatar billede eagleeye Praktikant
04. juli 2002 - 10:04 #4
Kig på dette eks: http://www.hostingsolutions.it/helpdesk/aspSmartUpload/Sample2.asp
link til aspSmartUplaod Object: http://www.sitiasp.it/dllDoc/aspSmartUpload/help/Objects.htm

Men det bliver noget med:
Set fso = CreateObject("Scripting.FileSystemObject")


mySmartUpload.Upload
For each file In mySmartUpload.Files
  if not file.IsMissing Then
    If (fso.FileExists(server.mappath(file.filename))) Then
      'Filen findes....
    else
      'Filen findes ikke gem den
      file.SaveAs file.filename
    end if
  end if
next


Jeg har ikke angiver andet end filnavnet de forskellige steder, så du må selv rette til så det passer med en evt. sti til filen.
Avatar billede tblaster Nybegynder
12. februar 2003 - 16:37 #5
Hej Eagleeye ... det er lang tid siden jeg har smidt dette spørgsmål og derfor ville jeg lige gøre det færdig.

Jeg kan ikke helt se hvordan den renamer den i overstående. Min upload kode pt ser sådan ud:

Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
intCount = mySmartUpload.Save("/inyheder/Pics")

Håber stadig du kan hjælpe!
Avatar billede tblaster Nybegynder
25. marts 2003 - 20:38 #6
Lukker
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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