关于读取路径问题

我现在读取很多zz.txt文件，比如发现M2084文件下zz.txt里面出现问题，想返回M2084，我该怎么写程序？
\ZQZE\M2083\zz.txt
\ZQZE\M2084\zz.txt
  。
  。
  。

\ZQZE\M3092\zz.txt

就按这个路径找

VB code

for i=len("\ZQZE\M2083\zz.txt") to 1 step -1
   if mid("\ZQZE\M2083\zz.txt",i,1)="\" then
       exit for
   end if
next i

for j=i-1 to 1 step -1
   if mid("\ZQZE\M2083\zz.txt",j,1)="\" then
       exit for
   end if
next j
mystr=mid("\ZQZE\M2083\zz.txt",j+1,i-j-1)