Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9349 / 76732 ←次へ | 前へ→

【72945】Re:フォルダ移動
発言  バッファー  - 12/10/15(月) 7:46 -

引用なし
パスワード
   お世話になります。

動作確認したところ問題なく、理想通りでした。

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
1 hits

【72928】フォルダ移動 バッファー 12/10/13(土) 9:36 質問
【72934】Re:フォルダ移動 ウッシ 12/10/13(土) 12:10 回答
【72936】Re:フォルダ移動 バッファー 12/10/13(土) 16:55 発言
【72937】Re:フォルダ移動 ウッシ 12/10/14(日) 0:45 回答
【72945】Re:フォルダ移動 バッファー 12/10/15(月) 7:46 発言
【72946】Re:フォルダ移動 ウッシ 12/10/15(月) 9:41 回答
【72955】Re:フォルダ移動 バッファー 12/10/16(火) 19:11 お礼
【73042】Re:フォルダ移動 バッファー 12/10/30(火) 21:30 発言
【73043】Re:フォルダ移動 ウッシ 12/10/30(火) 23:40 回答
【73044】Re:フォルダ移動 バッファー 12/10/31(水) 21:08 お礼

9349 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free