Visualizzazione dei risultati da 1 a 6 su 6

Discussione: paht sbagliato

  1. #1
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916

    paht sbagliato

    ho un problemino con questo path di questo codice:

    codice:
    Dim path, nome, completo 
    path = server.MapPath("/dati/public/contatore/")
    nome=""&id&".txt" 
    completo=path & nome 
    Dim fso, file 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    IF fso.FileExists(completo)=true THEN 
    ELSE 
    Set file = fso.CreateTextFile(completo) 
    file.WriteLine("1")
    file.Close 
    END IF 
    Set file=Nothing 
    Set fso=Nothing
    seguendo il path dovrebbe crearmi il file txt dentro la cartella contatore, invece me lo crea dentro public... come mai??

    grazie!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  2. #2
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    addirittura adesso mi sbagli anche il nome del file txt che crea e come nome mi mette contatore piu l'id.txt

    VVoVe:

    ma che è??
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  3. #3
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    up!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

  4. #4
    id = "simo"
    Dim path, nome, completo
    path = server.MapPath("/dati/public/contatore/")
    nome=""&id&".txt"
    completo=path &"\"& nome
    Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    IF fso.FileExists(completo)=true THEN
    ELSE
    Set file = fso.CreateTextFile(completo)
    file.WriteLine("1")
    file.Close
    END IF
    Set file=Nothing
    Set fso=Nothing
    response.write completo
    --- [color= darkorange]L'uomo è il computer più straordinario di tutti [/color]----

    http://www.simogrima.com

    Grifone

  5. #5
    scusa...


    Dim path, nome, completo
    path = server.MapPath("/dati/public/contatore/")
    nome=""&id&".txt"
    completo=path &"\"& nome
    Dim fso, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    IF fso.FileExists(completo)=true THEN
    ELSE
    Set file = fso.CreateTextFile(completo)
    file.WriteLine("1")
    file.Close
    END IF
    Set file=Nothing
    Set fso=Nothing
    --- [color= darkorange]L'uomo è il computer più straordinario di tutti [/color]----

    http://www.simogrima.com

    Grifone

  6. #6
    Utente di HTML.it L'avatar di yro
    Registrato dal
    Sep 2003
    Messaggi
    2,916
    mitico!!!

    grazie mille!!
    E se avessi il dono della profezia e conoscessi tutti i misteri e tutta la scienza, e possedessi la pienezza della fede così da trasportare le montagne, ma non avessi la carità, non sono nulla.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.