11 svar · 352 visningar · startad av eas
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 
eller
variable = objFile.Type
Fast den ger en beskrivande text, tex "Text Document" för en .txt fil
däremot, om du gör.
variable = objFSO.getExtensionName(path)
får du ut tex: "txt" för en text fil
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!
hur kan jag skriva fel när jag gjode ett exempel 
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,
PatrikB
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,
PatrikB
