VB脚本根据文件夹结构移动子文件夹

时间:2012-11-19 10:47:16

标签: vbscript

我是VB Script的新手,我需要VB脚本根据文件夹名称结构移动特定的子文件夹(即从“test2”中拾取精确的“abc”子文件夹并需要移动“test1”)和文件夹的确切结构如下

  • E:\ TEST1 \ 42 \ 5423284 \ 4967957 \ HTML
  • E:\ TEST1 \ 43 \ 5403284 \ 4567051 \ HTML
  • E:\ TEST1 \ 48 \ 7723589 \ 9977457 \ HTML
  • E:\ TEST1 \ 47 \ 5428284 \ 2797932 \ HTML
  • E:\ TEST1 \ 42 \ 5468284 \ 1487651 \ HTML

在上面,“html”文件夹不包含任何“abc”子文件夹

我想在“abc”子文件夹下移动到“html”文件夹

之上
  • E:\ TEST2 \ 42 \ 5423284 \ 4967957 \ HTML \ ABC
  • E:\ TEST2 \ 43 \ 5403284 \ 4567051 \ HTML \ ABC
  • E:\ TEST2 \ 48 \ 7723589 \ 9977457 \ HTML \ ABC
  • E:\ TEST2 \ 47 \ 5428284 \ 2797932 \ HTML \ ABC
  • E:\ TEST2 \ 42 \ 5468284 \ 1487651 \ HTML \ ABC

任何人都可以帮忙

提前致谢

1 个答案:

答案 0 :(得分:0)

基于this answer to your "delete folder" question

只需提供以下方法:

  Public Function processFolder(oFolder)
    WScript.Echo "looking at", oFolder.Path
    processFolder = True
    If "abc" = oFolder.Name Then
       WScript.Echo "will move", oFolder.Path
       WScript.Echo "       to", Replace(oFolder.Path, "\df\", "\mf\")
       oFolder.Move Replace(oFolder.Path, "\df\", "\mf\")
       processFolder = False
    End If
  End Function