---
title: "extractPath (tar ut enhet/sökväg/filnamn ur fullständig sökväg)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/38208-extractpath-tar-ut-enhet-sökväg-filnamn-ur-fullständig-sökväg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Pace"
published: "2001-07-19T22:11:00.000Z"
updated: "2001-07-19T22:11:00.000Z"
replies: 0
views: 814
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/38208-extractpath-tar-ut-enhet-sökväg-filnamn-ur-fullständig-sökväg"
---

# extractPath (tar ut enhet/sökväg/filnamn ur fullständig sökväg)

## #1 — Pace, 2001-07-19T22:11Z

Script som tar ut enhet, sökväg eller filnamn ur en fullständig sökväg.

Kan diskuteras [här](http://cgi.webforum.nu/wf/Forum11/HTML/005363.html)

Om du har sökvägen C:\\WINDOWS\\SYSTEM\\FIL.TXT
blir därmed resultatet följande:
enhet \>\> C:
sökväg \>\> C:\\WINDOWS\\SYSTEM
fil \>\> FIL.TXT

\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#006666"\>
\<%
Response.Write "\<PRE\>"
Response.Write "Enhet:   " & extractPath("c:\\windows\\system\\fil.txt", 1) & vbCrLf
Response.Write "Sökväg:  " & extractPath("c:\\windows\\system\\fil.txt", 2) & vbCrLf
Response.Write "Fil:     " & extractPath("c:\\windows\\system\\fil.txt", 3) & vbCrLf

'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
'\* Funktion för att ta ut enhet/sökväg/filnamn ur en fullständig sökväg.
'\* Skriven av Peter Dahlgren aka Pace juli 2001
'\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*
FUNCTION ExtractPath (FullPath, extractMode)

       
        'Avsluta om felaktig.
        IF FullPath = "" THEN
	   ExtractPath = ""
	   EXIT FUNCTION
	End If

       
        'Leta upp vilken pos det sista \\-tecknet har och ta ut filen.
        FOR CurrPos = 1 TO LEN(FullPath)
           IF INSTR(MID(FullPath, CurrPos, 1), "\\") = 1 THEN SlashPos = CurrPos
        NEXT

        'Ta ut enhet, om den finns definerad.
        IF MID(FullPath, 2, 2) = ":\\" THEN strDrive = LEFT(FullPath, 2)

        'Ta ut fil och sökväg om sökvägen finns definerad.
        IF INSTR(FullPath, "\\") THEN
           strFile = MID(FullPath, SlashPos + 1)
           strPath = MID(FullPath, 1, LEN(FullPath) - LEN(strFile) - 1)
        ELSE
           strFile = FullPath
           strPath = ""
        END IF

        IF extractMode = 1 THEN
           ExtractPath = strDrive
        ELSEIF extractMode = 2 THEN
           ExtractPath = strPath
        ELSEIF extractMode = 3 THEN
           ExtractPath = strFile
        ELSE
           ExtractPath = ""
        END IF

END FUNCTION

%\>

Permalänk: https://www.webforum.nu/p/38208

---

Tråden på webben: https://www.webforum.nu/amne/asp/38208-extractpath-tar-ut-enhet-sökväg-filnamn-ur-fullständig-sökväg