ab.com コミュニティ

よろしくお願いします。 選択したファイルが１つの場合は「lpstrFile」にフルパスが格納 されているようですが、複数選択したそれぞれのﾌｧｲﾙのフルパスは 下記のコードではうまくメッセージボックスでそれぞれ表示されません。 目的は表示そのものではなく、選択した複数のﾌｧｲﾙを任意の場所に 読み書きしたいのですが、この段階でつまずいています。 'OPENFILENAME構造体の初期化 Dim ofn As OPENFILENAME Dim FileName[MAX_PATH] As Byte,FN1[MAX_PATH] As Byte FillMemory(VarPtr(ofn),Len(o...

７さんありがとうございます。

たくさんの材料とヒントを頂き感謝です。
研究してみます。
明日の仕事頑張ってください。

7さん、お忙しい中ありがとうございます。

そもそも、僕にはまだ難しいようです。
「RegisterClipboardFormat」では、新しいデータ形式を登録するようですが、
「データ形式」自体分かりません。

ただ単にマウスの右メニューで任意のﾌｧｲﾙを「コピー」して「貼り付け」をする。
「コピー」だけはマウスを使わずにこの一連の作業を実現したかったのですが。

もし良かったら勉強のために、７さんが思惑通り動いたフルソースを
公開していただけませんか。

遅くなりましたが、７さんありがとうございます。

７さんの予想通り、クリップボードにﾌｧｲﾙの絶対パスを
設定し、どこでも「貼り付け」ができるようにしたいのです。

よろしくお願いします。

過去ログにてクリップボードに文字列を貼り付ける幾つかの
例を拝見しました。
　ﾌｧｲﾙの内容ではなく、ﾌｧｲﾙそのものをコピーし一時置きする
作業をしたいのですが、

１．コピーしたいファイルのフルパスとファイル名を指定。
２．クリップボードを開く
３．クリップボードを空にする
４．メモリを確保
５．メモリの先頭アドレスを取得
６．メモリの先頭アドレスを渡す
７．クリップボードを閉じる

工程の４．と５．と６．をご教授ねがいたいのです。

皆さんありがとうございます。

hiraさんのコードが理想通りに”＊”が使えました。

考えると、DeleteFileが有るのならDeleteDirectoryがあっても
いいですよね。

ご回答ありがとうございます。

実は”*.txt”はフォルダのことです。
単数のフォルダは削除できますが、
複数のフォルダの削除ができません。

そこで考えたのが、昔コマンドでよく使った”＊”を
活かして、空のフォルダすべてを削除できればと思い
ご意見頂ければ、という事です。

ありがとうございました。

RemoveDirectory関数で理想通りです。
しかし、複数の空フォルダが有る場合に、

RemoveDirectory（”C:\test\*.txt")

こんな感じで実行しましたが、削除されません。
ABでのワイルドカード”＊”の使い方が悪いのでしょうか。

ヘルプセンターで検索したのですが・・・・。
もしよろしければ、この件についてもアドバイス願いませんでしょうか。

よろしくお願いします。

"DeleteFile"の存在は確認していますが、
フォルダを削除するAPIがなかなか見つかりません。
ご存知の方がいらっしゃればと思い投稿しました。

よろしくお願いします。