Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36902 / 76738 ←次へ | 前へ→

【45011】フルパスからファイル名のみ出力したいです
質問  morizou  - 06/12/9(土) 23:28 -

引用なし
パスワード
   はじめまして。
Excel2000を使用しております。morizouと申します。

現在使用しているPCのファイル管理を行いたくて、
指定したフォルダ(サブフォルダ含む)より、
指定した拡張子のファイル名を、
ファイルへのハイパーリンク付きで出力するという、
下記のソースコードを書きましたが、
出力結果のファイル名が、フルパス表示となってしまい
見にくくなってしまいました。
リンク付でファイル名のみの検索結果表示としたいです。

解決へのアドバイスをいただきたいです。よろしくお願いいたします。

Sub ファイルサーチ()
  Dim I As Long
  
  With Application.FileSearch
    .NewSearch
    .LookIn = InputBox("検索フォルダ入力", "検索1.", , 3000, 3000)
    .SearchSubFolders = True
    .Filename = InputBox("拡張子(*.拡張子)", "検索2.", , 3000, 3000)
    .MatchAllWordForms = True
    .FileType = msoFileTypeAllFiles
    If .Execute(SortBy:=msoSortByFileName, _
      SortOrder:=msoSortOrderAscending) > 0 Then
      MsgBox .FoundFiles.Count & "個のファイルが見つかりました。"
      For I = 1 To .FoundFiles.Count
        ActiveSheet.Hyperlinks.Add anchor:=Cells(I, "A"),               Address:=.FoundFiles(I), _
          TextToDisplay:=.FoundFiles(I)
      Next I
    Else
      MsgBox "検索条件を満たすファイルはありません。"
    End If
  End With
End Sub
0 hits

【45011】フルパスからファイル名のみ出力したいです morizou 06/12/9(土) 23:28 質問
【45012】Re:フルパスからファイル名のみ出力したい... かみちゃん 06/12/9(土) 23:33 発言
【45025】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 15:33 お礼
【45017】Re:フルパスからファイル名のみ出力したい... だるま 06/12/10(日) 10:01 発言
【45026】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 15:51 お礼
【45018】Re:フルパスからファイル名のみ出力したい... kohji 06/12/10(日) 10:03 回答
【45028】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 16:05 お礼
【45024】Re:フルパスからファイル名のみ出力したい... Kein 06/12/10(日) 15:02 回答
【45029】Re:フルパスからファイル名のみ出力したい... morizou 06/12/10(日) 16:07 お礼

36902 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free