PDA

Visualizza la versione completa : [VB] data creazione/modifica file su server


sidin
25-09-2002, 11:53
http://forum.html.it/forum/showthread.php?postid=2308499#post2308499

help

willybit
25-09-2002, 12:01
Ciao sidin,

VisualBasic o VBScript in pagina ASP? Devi usare il FileSystemObject

te faccio un esempio in ASP


<%
filespec="../directory/nomefile.txt"
filespec=Server.MapPath(filespec)
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
Set erFile = fso.GetFile(filespec)
msg = erFile.Path & "
"
msg = msg & "Data di creazione: " & erFile.DateCreated & "
"
msg = msg & "Ultimo accesso: " & erFile.DateLastAccessed & "
"
msg = msg & "Ultima modifica: " & erFile.DateLastModified
Else
msg = filespec & " non esiste."
End If
Response.Write msg
%>


Aloha
:ciauz:

sidin
25-09-2002, 12:05
.... visual basic.. ne sai niente... la funzione e' uguale... (GRAZIE cmq.. visto che mi serviva anche questa... ma leggi nel pensiero? :dottò: )


chi mi aiutas?

willybit
25-09-2002, 12:27
io ti aiutos sidin...

in VisualBasic devi mettere i riferimenti a Microsoft Scripting Runtime (Progetto-->Riferimenti...)
e poi è molto simile a quello de prima


Dim filespec As String
Dim fso As Scripting.FileSystemObject
Dim erFile As Scripting.File
filespec = "C:\NomeFile.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
Set erFile = fso.GetFile(filespec)
msg = erFile.Path & vbCrLf
msg = msg & "Data di creazione: " & erFile.DateCreated & vbCrLf
msg = msg & "Ultimo accesso: " & erFile.DateLastAccessed & vbCrLf
msg = msg & "Ultima modifica: " & erFile.DateLastModified
Else
msg = filespec & " non esiste."
End If
MsgBox (msg)

sidin
25-09-2002, 12:50
perchè questo riferimento a scripting? E funziona tutti su server nevvero? ^_^ grassie per l'aiuto!

:metallica

Loading