Nome campo file

[fabiodm75]

Ciao a tutti,
devo recuperare il nome del file da un campo file, solo il nome del file non devo fare upload o altro... usando il request.form sul campo file ottengo una cosa del genere:

C:\Documents and Settings\utente\Desktop\nomeFile.txt

ecco io devo recuperare solo il nome del file... nomeFile.txt come posso fare? :master:

Ciao e grazie

Fabio

[Roby_72]

Lo devi passare come fosse un upload, poi lo cancelli.

Roby

[fabiodm75]

non posso perchè prendendo i dati da un form il metodo request.form e il metodo Request.BinaryRead vanno in conflitto il secondo non vuole il primo...

non c'è un'altra soluzione? :master:

[Roby_72]

Devi usare uno script per upload... in modo da recuperare contemporaneamente gli uni e gli altri.

Roby

[fabiodm75]

edit: capito come fare grazie, però cercavo una soluzione più semplice in quanto questo passaggio supplementare mi scombina un pò le cose... ma la funzione Instr e Left non possono essermi di aiuto per estrarre il nome del file? :master:

[Roby_72]

C'è anche scritto....

      ' Recupero i campi se sono compilati 
        if instr(Intestazione,"testo1") > 0 then 
            testo1 = ContenutoFile 
        end if

Roby

[fabiodm75]

Ciao, allora come suggerito per estrarre il nome del file dal campo file ho utilizzato il metodo di upload, però questo comporta un problema... praticamente dovendo prendere il nome di un file video flv (quindi parliamo di diversi Mb) l'applicazione va in Timeout e comunque risulta lenta, appunto come se facessi un upload!
A me non interessa fare l'upload del video a me serve solo prendere il nome esatto del file per memorizzarlo successivamente nel DB.
Premetto che anche se lento funziona estrae il nome del file, ma come posso fare per velocizzare l'estrazione del nome file? :master:

ByteRicevuti = Request.TotalBytes

If ByteRicevuti > 0 then
    DatiRicevuti = Request.BinaryRead(ByteRicevuti)

    For i = 1 To lenB(DatiRicevuti)
        FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
    Next
    FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
    ArrPezzi = split(FileBinario,FirmaFile)

    For item = 1 to ubound(ArrPezzi)-1
        Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
        Intestazione = left(ArrPezzi(item),Inizio-1)
        Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
            ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

        ' Recupero i campi se sono compilati
        If instr(Intestazione,"titolo") > 0 then
            titolo = ContenutoFile
        End if
        
        If instr(Intestazione,"dataVideo") > 0 then
            data = ContenutoFile
            'Response.Write(data)
        End if
        
        If instr(Intestazione,"durata") > 0 then
            durata = ContenutoFile
        End if
        
        If instr(Intestazione,"descrizione") > 0 then
            descrizione = ContenutoFile
        End if                        

        ' Qui recupero il file da uploadare (se presente) e lo scrivo sul server
        If instr(Intestazione,"file1") > 0 then
            i = instr(Intestazione,"filename=")
            j = instr(i + 10,Intestazione,chr(34))
            NomeUpload = mid(Intestazione,i + 10,j-i-10)
            i = instrRev(NomeUpload,"\")
            If i<>0 then
                NomeFile = mid(NomeUpload,i + 1)
            else
                NomeFile = NomeUpload
            End if
        End if
    Next
End if 

[Roby_72]

Cambiare script ad esempio sarebbe un primo passo:
http://www.creamweb.it/script/mostra.../?id_script=12

Roby

[fabiodm75]

Originariamente inviato da Roby_72
Cambiare script ad esempio sarebbe un primo passo:
http://www.creamweb.it/script/mostra.../?id_script=12

Roby

scaricato ma come lo integro questo upload? :master:
e comunque sempre un upload mi va a fare... io vorrei evitare di fare l'upload


non c'è un modo più semplice per estrarre un banale nome da un campo file?

[optime]

ma dove sta sto file?