掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイル名を変更せずにファイルを移動させるには？ (ID:22222)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
SHFileOperation でやるのはどうですか？ procedure TForm1.TntButton1Click(Sender: TObject); var fos: TSHFileOpStruct; begin with fos do begin wnd := Handle; wFunc := FO_COPY; pFrom := PChar('C:\My Documents\1*.*' + #0#0); pTo := PChar('C:\MyDocuments\Back\' + #0); fFlags := FOF_FILESONLY or FOF_ALLOWUNDO; // FOF_ALLOWUNDO はいらない？ fAnyOperationsAborted := False; hNameMappings := nil; lpszProgressTitle := nil; end; SHFileOperation(fos); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.