掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォルダをコピーするには。 (ID：33148)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
みなさん、早速のご返答 本当にありがとうございます。 みなさんのご意見を参考に、 以下のように直したところ、保存されるようには なったのですが、フォルダ内のファイルだけが コピーされてしまいます。 CurDir := CurDir+ '\フォルダ名' が原因なのでしょうか。 繰り返しになってしまい、申し訳ございません、 宜しくお願い致します。 //構造体の初期設定 With SHFILEOPSTRUCT do begin wnd := Handle; wFunc := FO_COPY; pFrom := PChar(CurDir + '\*.*'+#0) ; pTo := PChar(SelectFolder + '\'+#0); fFlags := FOF_ALLOWUNDO or FOF_FILESONLY; fAnyOperationsAborted := False; hNameMappings := nil; lpszProgressTitle := nil; end; //実行する SHFileOperation(SHFILEOPSTRUCT);
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.