'以上代码可以选择文件夹的路径（即s，），如：s =“ E：\ asw \ tmk \ kyr”（文件夹的路径的级数不定），请教
取“ E：\ asw \ tmk”（即s的上一级的路径）的代码如何写？谢谢。

'为何贴代码有一些英文单词会变为中文呢？清教如何贴代码上传？谢谢。
已经解决：  path = Left(s, InStrRev(s, "\"))
          MsgBox path  ' path="E：\ asw \ tmk\"

[此贴子已经被作者于2020-6-4 20:08编辑过]

谢谢关注。因为即要处理这一级的某个文件夹，还要在这一级建立一个文件夹，因此，该代码的结果正合本人的心意。