Come cambiare il nome del file durante upload?!

[marcopaolo79]

Salve a tutti tramite questa "chiamata" di sub

File.SaveToDisk strPath

io richiamo un sub che mi fa l'uplod di alcuni file sul server remoto

questa è la sub:

  Public Sub SaveToDisk(sPath)
    Dim oFS, oFile
    Dim nIndex

    If sPath = "" Or FileName = "" Then Exit Sub
    If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

    Set oFS = Server.CreateObject("Scripting.FileSystemObject")
    If Not oFS.FolderExists(sPath) Then Exit Sub

    Set oFile = oFS.CreateTextFile(sPath & FileName, True)

    For nIndex = 1 to LenB(FileData)
      oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
    Next
    oFile.Close
  End Sub

dove sPath è il percorso della cartella dove ho i permessi di scrittura sul server.

Tutto mi funziona correttamente ma se io volessi chiamare questo file prova.pdf come posso modificare la sub?

[Roby_72]

Set oFile = oFS.CreateTextFile(sPath & "prova.pdf", True)

Roby

[marcopaolo79]

Grazie perfetto, ultima domanda poi non rompo più...

siccome questa chiamata alla sub è all'interno di un ciclo for io vorrei che quando il valore del ciclo è a 1 il file venga rinominato in prova.pdf mentre quando il ciclo è a 2 il file venga rinominato in pippo.pdf

ho pensato che devo passare il valore del contatore del mio ciclo for alla sub e poi mettere un if dentro la sub che così sceglie come rinominare il file in base al valore passato.

in questo modo...... chiamata della sub:

File.SaveToDisk strPath, contatore

codice della sub:

Public Sub SaveToDisk(sPath, contatore)
    Dim oFS, oFile
    Dim nIndex

    If sPath = "" Or FileName = "" Then Exit Sub
    If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

    Set oFS = Server.CreateObject("Scripting.FileSystemObject")
    If Not oFS.FolderExists(sPath) Then Exit Sub
	
	If contatore = 1 Then
    Set oFile = oFS.CreateTextFile(sPath & "prova.pdf", True)
	else
	Set oFile = oFS.CreateTextFile(sPath & "pippo.pdf", True)
	end if

    For nIndex = 1 to LenB(FileData)
      oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
    Next
    oFile.Close
  End Sub

solo che così non mi dà errori ma mi crea sempre e solo prova.pdf
dove sbaglio?

[Roby_72]

Testa il valore del contatore nella sub.

Roby

[marcopaolo79]

l'avevo già testato.....come tante volte mi hai insegnato proprio tu a fare, ma lo passava correttamente...

l'errore è che l'avevo scritto male (non nell'esempio sotto)

contator invece di contatore

adesso funziona bene

grazie