Læse til og fra med FileSystemObject

Sådan her:

intNummer = Mid(din_linje_streng, InStr(din_linje_streng, "File:", 1), InStr(din_linje_streng, "From:", 1))

//>Rune

Hov, min fejl, sådan her kan du :

strStreng = "1242651456145145-d12 From:1235140adsf0File:"
        strStrengV = Mid(strStreng, InStr(strStreng, "From:"), InStr(strStreng, "File:"))

//>Rune

Du har vist ikke testet det Rune. :o)

Det var vel kun det, der står imellem File: og From:
strStreng = "1242651456145145-d12 From:12345abcdefghijkFile:fgffggf"
p1=Instr(strStreng,"From:")
p2=Instr(strStreng,"File:")
strDel = Mid(strStreng, p1+5, p2-p1-5)

du kan lave det med regular expresstion:

Function findFileID(ByVal str)
  dim ReqEx
  Set RegEx = New RegExp
  RegEx.IgnoreCase = true
  regEx.Pattern = "^(.*)(File:)(.*)(From:)(.*)"
  findFileID = trim(RegEx.Replace(str, "$3"))
End Function

str = "2003/09/15 13:58:29.734 File:20030915-13582690-bd4-0 From: To: "
fileID = findFileID(str)

ups: jeg kludrede også. Jeg byttede rundt på File: og From:
sådan:
strStreng = "1242651456145145-d12 File:12345abcdefghijkFrom:fgffggf"
p1=Instr(strStreng,"File:")
p2=Instr(strStreng,"From:")
strDel = Mid(strStreng, p1+5, p2-p1-5)

*G* Okay, min fejl *G*

//>Rune

hehe i kører bare der ud af