Excel VBA質問箱 IV

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

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


9251 / 76732 ←次へ | 前へ→

【73044】Re:フォルダ移動
お礼  バッファー  - 12/10/31(水) 21:08 -

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

早急な対応に感謝します。
以下のコードに変更し、問題なく動作しました。
また一つ勉強になりました。


If myFso.FolderExists(nFold & "\" & mySuffix) = False Then
              sh2.Cells(i, "AH").Value = "問題あり"
              sh2.Cells(i, "AH").Font.ColorIndex = 3

              ElseIf myFso.FolderExists(oFold) And _
                myFso.FolderExists(nFold & "\" & mySuffix) And _
                myFso.GetFolder(nFold & "\" & mySuffix) _
                  .Files.Count > 0 Then


            '移動の判定
            sh2.Cells(i, "AH").Value = "問題なし"
            sh2.Cells(i, "AH").Font.ColorIndex = 1
            cnt = cnt + 1
          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 お礼

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