E eas Medlem sedan sep. 2001 269 inlägg Frågan 7 nov. 2001 13:58 #1 Jag skulle vilja ha lite kod som kollar vad det är för typ av fil.
Jag har listat alla filer i en mapp med Scripting.FileSystemObject.
Om det står tillexempel hej.txt så vill jag spara det som står efter punkten i en variabel.
Jag kan tänka mig att det skulle kunna gå med pattern på nåt sätt men vet inte hur :(
Har du nån idée :q
------------------Schöndells webbsajt
E erka Medlem sedan dec. 1999 6 522 inlägg Du får ut det med
Nyvariabel = Right(Variabel,3)
------------------
M mrblonde Medlem sedan aug. 2001 2 349 inlägg eller
Fast den ger en beskrivande text, tex "Text Document" för en .txt fil
däremot, om du gör.
får du ut tex: "txt" för en text fil
------------------National Blonde Day! Alle ihre Basis ist uns gehört.
E eas Medlem sedan sep. 2001 269 inlägg OK tack, men det händer ingenting!
Jag har skrivit så här:
filtyp = objFile.Type
Response.write "<tr bgcolor='" & color &"' style='font-size:10px'>"
Response.write "<td>" & File.Name & "</td>"
Response.write "<td align=right>" & filtyp & "<a href='view-source:http://localhost/filarkiv/arkiv/" & File.Name & "'>notepad</a></td>"
Response.write "</tr>"
Där jag har skrivit variabeln filtyp står det ingenting!
------------------Schöndells webbsajt
[Redigerat av eas den 07 nov 2001]
L LarsG Medlem sedan dec. 2000 12 464 inlägg du använder objfile.type men senare så skriver du file.name
så det kanske skall vara file.type ?
annars så får du visa lite mer kod
------------------essentitia preter non sans multiplicandum
E eas Medlem sedan sep. 2001 269 inlägg Det har du helt rätt i LasrG!
Stolpskottet mrblonde skrev visst fel ;)
------------------Schöndells webbsajt
M mrblonde Medlem sedan aug. 2001 2 349 inlägg hur kan jag skriva fel när jag gjode ett exempel :OO
------------------National Blonde Day! Alle ihre Basis ist uns gehört.
P PatrikB Medlem sedan mars 2000 2 836 inlägg Använder mig av denna funktion själv för att hämta filändelsen:
Function GetExtension(ByVal sFileName)
Dim varExtension
varExtension = Right(sFileName,Len(sFileName)-InStrRev(sFileName,"."))
GetExtension = varExtension
End Function
cya,
------------------
[Redigerat av PatrikB den 07 nov 2001]
E eas Medlem sedan sep. 2001 269 inlägg PatrikBs funktion funkar inte heller för mig.
Kan det bero på att jag kör PWS?
------------------Schöndells webbsajt
P PatrikB Medlem sedan mars 2000 2 836 inlägg Vad får du för fel meddelande? eller vad är det som kommer ut från funktionen?
För, hos mig funkar den perfa.
Testa:
<% =GetFunction("filnamn.txt")%>
Du får txt som utskrift, dvs filändelsen, fast utan punkt ....
cya,
------------------
P PatrikB Medlem sedan mars 2000 2 836 inlägg ... hade kommit in ett litet s för mycket i InStrRev ....
cya,
------------------
E eas Medlem sedan sep. 2001 269 inlägg Tack så jättemycket!!!
s:et taskade till det :)
------------------Schöndells webbsajt
