如何根据文件名创建文件夹并将文件分类（剪切）到对应文件夹中

1042271867

请教老师：用VBA，如何根据文件名创建文件夹并将文件分类（剪切）到各对应文件夹中。创建文件夹是根据里面的文件名，当文件名是这样的情况下：比如有2105、2105-1这几文件时，就创建一个文件夹就行，文件夹名是用2105命名（如果只有一个文件即没有这个文件名再加上“-数字）的话，就直接创建以这个名字命名的文件夹），然后将2105、2105-1这几文件剪切到对应的这个2105文件夹中。谢谢老师

ykcbf1100

附件供参考。。。

limonet

代码在审核。

limonet

Sub Limonet()
    Dim Path$, F As Object, FL As Object, NewDir$
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then Path = .SelectedItems(1) Else Exit Sub
    End With
    Set FL = CreateObject("scripting.filesystemobject").getfolder(Path)
    For Each F In FL.Files
        If InStr(F.Name, "-") Then
            NewDir = Split(F.Name, "-")(0)
        Else
            NewDir = Split(F.Name, ".")(0)
        End If
        NewDir = Path & "\" & NewDir
        If Dir(NewDir, vbDirectory) = "" Then MkDir NewDir
        F.Move NewDir & "\" & F.Name
    Next F
End Sub

limonet

关键字：-replace+basename

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & "\文件分类 -passthru | dir | foreach {'begin'} { if ((test-path ($_.basename -replace '-.*','')) -eq $False)" _
    & "{md ($_.basename -replace '-.*','')}} {move $_ ($_.basename -replace '-.*','') } {'end'}", 0
End Sub