■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#16780-0ファイルを検索しCSVへ出力する。ひろゆき2001-07-04(水) 14:05
     #16781-0RE#16780:ファイルを検索しCSVへ出力する。Dental2001-07-04(水) 15:29
#16780-0
ファイルを検索しCSVへ出力する。
はじめて、投稿させていただきます。
下記の内容で、アドバイスお願い致します。

TEXT BOX から入力した拡張子であるフォルダーを検索し
その結果を、フルパスでCSVファイルへ出力したいのですが
どうしたらよいのでしょうか?

アドバイスよろしくお願い致します。
#16781-0
RE#16780:ファイルを検索しCSVへ出力する。
> TEXT BOX から入力した拡張子であるフォルダーを検索し
> その結果を、フルパスでCSVファイルへ出力したいのですが
> どうしたらよいのでしょうか?

Option Explicit

Private Sub Form_Load()
    Text1.Text = "C:\Program Files\"
    Text2.Text = "*.TXT"
    Text3.Text = "C:\結果.CSV"
End Sub

Private Sub Command1_Click()
    Dim Cmd As String

    If Right(Text1.Text, 1) <> "\" Then
        Text1.Text = Text1.Text & "\"
    End If
    
    Cmd = Environ("COMSPEC") & " /C DIR /S /B """ & _
          Text1.Text & Text2.Text & """>""" & Text3.Text & """"
    Shell Cmd, vbNormalFocus
End Sub
このページと関連する記事:
#37353-0ファイル検索について・・・2001-01-19(金) 17:35
#4030-0ファイルを開くときフルパスでない指定の仕方2002-01-18(金) 23:58
#4030-2ファイルを開くときフルパスでない指定の仕方2002-01-18(金) 14:58
#299-0RE#294:エクセルをDBとして使用する方法1999-07-27(火) 16:43
#468-1Mscommを用いた受信結果について2004-03-22(月) 00:21
#36351-0文字カウント&出力2001-01-04(木) 19:10
#1897-1入力を付加にする2004-04-30(金) 18:18
#45868-0判定2001-08-14(火) 18:10
#11714-0テキストの途中にテキストを代入したいのです。2000-09-26(火) 19:19
#19663-0ファイルとフォルダの選別2001-03-18(日) 18:24
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)