"Jakob Andersen" <jakob@effectus.dk> skrev i en meddelelse
news:ach4rd$70l$1@sunsite.dk...
> Hvis du tænker på office dokumenter bliver du nødt til at åbne dem med et
> Word objekt som kræver at office er installeret på serveren hvilket ofte
> ikke er tilfældet da licenseringen på dette område er noget stram.
Nøh, det var filer generelt... det er rent faktisk rene tekstfiler uden
efternavn/extension
Og så er det min egen computer/server, så der er word på, med det er jo så
ligemeget, ikke?
> De mest basale egenskaber som er ens for alle filer kan hentes vha. file
> objektet:
>
> <
http://www.devguru.com/Technologies/vbscript/quickref/file.html>
Jeg kan ikke lige se noget om versionsnummeret, men jeg har fundet noget via
MSDN:
(det lå godt nok i en funktion, men det blev så omskrevet)
function ShowFileVersion(pathspec){
var fso, s = "";
fso = new ActiveXObject("Scripting.FileSystemObject");
s += fso.GetFileVersion(pathspec);
if (s == "")
s = "No version information available.";
return(s);
}
Min version med sammenhæng med resten:
<%
Dim fso, physPath
Set fso = Server.CreateObject( "Scripting.FileSystemObject" )
physPath = Server.MapPath("Artikler/Cracks/cracks")
Set myFolder = fso.GetFolder( physPath )
%>
<P align="center">
<TABLE>
<Klip (udnødvendigt)>
<%
For Each file in myFolder.Files
''---------------Start Versionfinder---------->
<--- her finder den... et eller andet
Dim ver
'ver = ""
pathspec = file
ver = fso.GetFileVersion(pathspec)
if (ver = "") then
ver = "-"
end if
''---------------End Versionfinder---------->
Response.Write "<TR>"
Response.Write " <TD> " & file.Name & " </TD>"
Response.Write " <TD align='center'> " & ver & " </TD>"
<--- Her bliver den sat ind
Response.Write " <TD> " & myFolder.DateLastModified &
" </TD>"
Response.Write "</TR>"
Next %>
</TABLE>
Jeg har fået den til at virke, men jeg er i tvivl, om, hvad det er for nogen
versionsnumre den kigger på, fordi jeg kan ikke få den til at skrive andet
end "-" dvs. den kunne ikke finde nogen info...
Uddrag fra Windows Script Technologies:
###
JScript
Requirements
Version 1
Returns the version number of a specified file.
object.GetFileVersion(pathspec)
Arguments
object
Required. Always the name of a FileSystemObject.
pathspec
Required. The path (absolute or relative) to a specific file.
Remarks
The GetFileVersion method returns a zero-length string ("") if pathspec does
not end with the named file or if the file does not contain version
information.
Note The GetFileVersion method works only on the provided path string.
It does not attempt to resolve the path, nor does it check for the existence
of the specified path.
###
> --
> Jakob Andersen
>
>