5㎡ 延床 36, 656. 3㎡ 構造規模 RC造 地上7階地下1建 施工 鹿島建設株式会社 交通 電車.. JR東海道本線蒲郡駅タクシー15分 車. 東名高速音羽蒲郡出口25分 総客室 193室(ロイヤル. ラグジュアリー. ベイスイー...
Files ( 1)) & "\" Dim i As Long For i = 1 To Data. Files. Count OldFileName = FSO. GetFileName ( Data. Files ( i)) With ListView1. ListItems. Add. Text = OldFileName If OldFileName Like "*パスタ*" Then NewFileName = Replace ( OldFileName, "パスタ", "スパゲッティ") Name ParentFolderPath & OldFileName As ParentFolderPath & NewFileName. SubItems ( 1) = "正常処理終了" Else. SubItems ( 1) = "処理の対象外" End If Next 早速テストしてみよう。 ↓ 処理対象。 ↓処理結果。 今回のコード全文は ↓ こちら。 やっぱり、処理の 見える化 は重要だなと思った次第です。 参考まで。
)があるかどうかだけで判断しています。(ですので、フォルダ名にカンマがあるとファイルと判断してしまいます)
【背景】 vbaを使用して「ドラッグ&ドロップでファイル名を取得し、リストボックスに出力する」プログラムを 作成したいと考えています。 ※画像イメージの「画像ファイルリスト」のリストボックスにファイルドラッグ&ドロップすると、ドラッグ&ドロップしたファイルのファイル名が追加されていくイメージです。 現在、以下サイトを参考にドラッグ&ドロップでファイルパス+ファイル名を取得するところまでは作成できましたが、「ファイル名のみ取得し、リストボックスに出力する」ところで詰まってしまいました。 【質問】 ドラッグ&ドロップをするボックスとリストボックスを被らせたいんですが、被らせるとドラッグ&ドロップの機能が使えなくなってしまったため、どのように実装したらよいか教えていただきたいです。 【参考URL】 回答 1 件 sort 評価が高い順 sort 新着順 sort 古い順 check ベストアンサー 0 リストボックスにドラッグイベントを登録してそこからファイル名を取ればいいんでは。 そこの説明の、ListViewをListBoxに読み替えてみればどうでしょう
質問日時: 2003/09/01 17:07 回答数: 2 件 Windows2000(sp3) VisualBasic6. 0(sp5) で開発しています。 テキストボックス付きのあるアプリケーションを作成し、そのアプリのテキストボックス上へ、エクスプローラーからファイルをドラッグ&ドロップすると、そのファイルのフルパスを表示する。 ということをしたいと考えています。 例 コマンドプロンプトに、エクスプローラーからファイルをドラッグ&ドロップすると、そのファイルのパス付きの名称が表示される。 良い方法をご存知の方いらっしゃいましたら教えてください。 よろしくお願いします。 No. 2 ベストアンサー 回答者: kyoujirouY 回答日時: 2003/09/01 17:24 1:Formにテキストボックスを配置。 2:テキストボックスの OLEDropModeプロパティを「1-手動」に設定する。 3:テキストボックスの OLEDragDropイベントに以下の処理を記述する。 Dim objFile As Variant For Each objFile In = objFile Next 以上でご希望の動作ができると思います。 0 件 この回答へのお礼 教えていただいた通りにやったら、直ぐに出来ました! ありがとうございました。 初めてドラッグ&ドロップ機能を使えました。 お礼日時:2003/09/01 17:35 No. 1 todo36 回答日時: 2003/09/01 17:18 OLEDragDropイベント お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう! このQ&Aを見た人はこんなQ&Aも見ています
Caption 'ユーザーフォームをアクティブにする If < 1 Then Exit Sub '引数Data ReDim strFilesPath(1 To) For i = 1 To strFilesPath(i) = (i) Next MsgBox Join$(strFilesPath, vbCrLf) End With End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) With lication If 1 <. Then. Visible = True With. ThisWorkbook = True Else. Visible = True. DisplayAlerts = False End If 標準モジュールに以下のコードを貼り付ける。 Public Sub Main_Form_Show() sible = False vbModeless 貼り付け後、このコードを実行するとフォームが起ちあがる。そのフォームのListViewにファイルをドラッグ&ドロップする。 実行例 ここで取得できるのは、ファイルパスであって、ファイルそのものではない。 メモ AppActivate ステートメント アプリケーション ウィンドウをアクティブする。 構文:AppActivate title[, wait] [ title] 必ず指定。アクティブにするアプリケーション ウィンドウのタイトルを表す文字列式を指定。 Shell 関数によって返されるタスク ID を指定することも可能。 [ wait] 省略可能。アプリケーションをアクティブにする前に、呼び出し側のアプリケーションにフォーカスを持たせるかどうかをBooleanの値で設定。 False ・・・既定値。呼び出し側のアプリケーションがフォーカスを持っていなくても、指定したアプリケーションをアクティブにする。 True ・・・呼び出し側のアプリケーションがフォーカスを持つまで待機し、指定したアプリケーションをアクティブにする。 Join関数 参照
昨日は、ListViewコントロールにファイルをドラッグ&ドロップすることで、同ファイルのファイルパスを取得する方法を紹介した。 勤め先でも同手法を何度か、幾つかのツールに組み込んで配付したことがある。 すると先日、 「処理状況を 見える化 できないか?」 というリク エス トがあったので、これに挑戦した。 今回はテスト用に、昨日も使用した、↓こちらの記事の残滓を流用する。 今回のテスト用処理要件 処理条件:ファイル名に「パスタ」が含まれるものが対象 処理内容:ファイル名の「パスタ」を「スパゲッティ」に置換 そこでまずユーザーフォームの初期化で、ヘッダーや列の幅などを設定する。 Private Sub UserForm_Initialize () With ListView1. View = lvwReport. LabelEdit = lvwManual. HideSelection = False. AllowColumnReorder = True. FullRowSelect = True. Gridlines = True. ColumnHeaders. Add, "_FileName", "ファイル名", 200. Add, "_Result", "処理結果", 100 End With End Sub すると、↓ こうなる。 ※ListView1 のWidth は、事前に 「300」 で設定済み。 次いで、受け取ったファイル毎に名前で判定し、パスタを含むときだけスパゲッティに置換する。 Private Sub ListView1_OLEDragDrop ( Data As MSComctlLib. DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Dim FSO As FileSystemObject Set FSO = New FileSystemObject Dim OldFileName As String Dim NewFileName As String Dim ParentFolderPath As String ParentFolderPath = FSO. GetParentFolderName ( Data.
Text = URL Cancel = True End Sub 解説 Webbrowserコントロールにファイルをドラッグ&ドロップすると表示のためファイルパスを開こうとします。 この時、 BeforeNavigate2 イベントは文字通りファイルを開く前に発生し、引数 URL としてファイルパスを返します。 さらに、 BeforeNavigate2 イベントそのものを引数 Cancel で中断します。 結果としてWebbrowserコントロールのファイル読み込みによるエラーを回避しつつ、ファイルパスのみを取得することができます。 補足 ファイルパスは一つずつしか取得できません。 Webbrowserコントロールの枠とか背景色とかの変更はVBAのフォームでは簡単にはできないようです。 外部にHtmlファイル作れば表示内容の変更は可能でした。 最後に 自身の環境ではこれで ファイルパスの取得がめちゃくちゃ楽 になりました。 今後Webbrowserコントロールのサポートが続く限りは、使える方法だと思います。 Why not register and get more from Qiita? We will deliver articles that match you By following users and tags, you can catch up information on technical fields that you are interested in as a whole you can read useful information later efficiently By "stocking" the articles you like, you can search right away Sign up Login
麻 婆 豆腐 残り アレンジ, 2024 | Sitemap