[已解决]在目标目录新建文件夹

billyzhang0609

各位老师好：
如何在目标文件夹“D:\HOST\XXXXXX”下检索是否含有文件夹“AEi”，i为0、1、2、3、4、5、6、7、8。。。。，如果没有带"AE"的文件夹，新建"AE0",如果有"AE0",那么新建一个“AE1",如果有"AE1",则新建一个"AE2"，依此类推，只要新建一个比原来号码大1的文件夹即可。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-8-8 10:16

Sub test()
    Dim p, f, i
    p = "D:\HOST\XXXXXX\"
    For i = 0 To 8
        f = p & "AE" & i
        If Dir(f, vbDirectory) = "" Then MkDir f
    Next
End Sub

跳转到最佳答案楼层

爱疯

Sub test()
    Dim p, f, i
    p = "D:\HOST\XXXXXX\"
    For i = 0 To 8
        f = p & "AE" & i
        If Dir(f, vbDirectory) = "" Then MkDir f
    Next
End Sub

billyzhang0609

爱疯 发表于 2013-8-8 10:16
Sub test()
    Dim p, f, i
    p = "D:\HOST\XXXXXX\"

谢谢老师，我还有个附加的问题，就是我的目标文件夹“xxxxxxxx”有很多，每个“xxxxxxx”里面含有一个文件“xy12345”，xy12345都是变量，这些文件名我列了一个excel表，我就想问，以"XY12345”为例，如何找到XY12345所在的文件夹“xxxx”。

爱疯

GetParentFolderName 方法：返回一个包含指定路径最后部件父文件夹名字的字符串。
MsgBox fso.GetParentFolderName("D:\456") '返回"D:\"
MsgBox fso.GetParentFolderName("D:\456\1.txt") '返回"D:\456"


看具体情况后，才好说。