掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ファイル名を変更せずにファイルを移動させるには？ (ID:22219)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ご教授ありがとうございます。 さっそくですが、 procedure TForm1.ShellChangeNotifier1Change; var kekka1 : TSearchRec; old_file1 : TFileName; CopyFrom : String; CopyTo : String; TempPath : array [0..MAX_PATH] of char; begin old_file1 :='C:\csv\1_*'; if FindFirst(old_file1,faAnyFile,kekka1) = 0 then begin CopyFrom := 'C:\csv\1_*' ; GetTempPath(SizeOf(TempPath), TempPath); CopyTo := 'C:\index\1\1_*'; CopyFile(PChar(CopyFrom),PChar(CopyTo),False); end; FindClose(kekka1); end; このようにしてテキストファイルの最初の1_の名前のついたもののみコピー使用としましたが。コピーできません。 CopyFrom := 'C:\csv\1_*'とCopyTo := 'C:\index\1\1_*';の所で、 1_のファイル名のみをコピーするにはどうしたら良いでしょうか？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.