|
お世話になります。
動作確認したところ問題なく、理想通りでした。
2点ほどお伺いしたいのですが、まず追加して頂いた箇所の処理の解説を
して頂ければ今後の参考になるのでよろしくお願いします。
>j = 0
>Set Fold_C = myFso.GetFolder(oFold).SubFolders
>For Each Fold_L In Fold_C
> If Fold_L.Name Like mySuffix & "*" Then
> If Val(Mid(Fold_L.Name, Len(mySuffix) + 1, _
> Len(Fold_L.Name))) >= j Then
> j = Val(Mid(Fold_L.Name, Len(mySuffix) + 1, _
> Len(Fold_L.Name))) + 1
> End If
> End If
>Next
次に移動先フォルダにフォルダを作成する箇所で
作成する前に移動前のフォルダにファイルが存在するか確認してから上記の
作業を実行したいのですが、下記のように追加したのですが、
動作しませんでした。
追加: If myFso.FileExists(nFold & "\" & mySuffix) Then
>myFso.CreateFolder (oFold & "\" & mySuffix & j)
> myFso.MoveFile (nFold & "\" & mySuffix & "\*.*"), _
> (oFold & "\" & mySuffix & j)
> myFso.Deletefolder (nFold & "\" & mySuffix), Force:=True
追加: End If
|
|