掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォルダーコピー時間を短縮するには？ (ID：78215)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォルダーのコピー処理として以下のように作成したのですが コピーに時間が、かかりすぎるのでどうにかしたいのですが どう改造したら良いのでしょう 同じフォルダーをエクスプローラでコピーすると、１分ぐらいで 終わるのですが、以下を実行すると１５分位掛かってしまいます。 宜しくお願いいたします。 Private Sub sub_セーブ処理_コントロール() Dim F_FLD, T_FLD Dim FS, F Set FS = CreateObject("Scripting.FileSystemObject") Set F_FLD = FS.getfolder(WRK.FFLD) Set T_FLD = FS.getfolder(WRK.TFLD) ' F_FLD.Copy T_FLD, True End Sub
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.