Listboxに、テキストファイル名だけを、表示させたいのですが、解りません
どのうにすれば、できますか下記がその、プログラムに成ります。
宜しくお願いいたします。
Dim fso : fso = CreateObject("Scripting.FileSystemObject")
Dim Drve_Data As String, Drve_True As Boolean
Drve_Data = "G"
Drve_True = fso.DriveExists(Drve_Data)
'日記ディレクトリのチェック
Dim Dir_Nane As String = Drve_Data + ":\日記\"
Dim intYear As Integer = DateTime.Now.Year '西暦
Dim intMonth As Integer = DateTime.Now.Month '月
Dim GetDir As String = Dir_Nane & Nen.Text & "年\" & Tuki.Text & "月\"
Dim Kensaku As String = Dir_Nane & Str(intYear) & "年\" & Str(intMonth) & "月\"
If Nen.SelectedIndex = -1 And Tuki.SelectedIndex = -1 Then '選択されていない
MessageBox.Show("選択されてません。" & vbCrLf & "西暦と月を選択して下さい。", "結果")
Else '選択されている
'選択されたディレクトリが無かったらエラーを表示
If GetDir <> Kensaku Then _
MessageBox.Show("指定された年は、在りません", "警告", _
MessageBoxButtons.OK, MessageBoxIcon.Warning)
'選択されたディレクトリが有ったらtxtファイル名をListboxに表示
If GetDir = Kensaku Then _
MessageBox.Show("指定された年は、在ります", "警告", _
MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
度々気になるのは、西暦に対して月のフォルダが必ずしも12ヶ月分存在しないケースがあるのですか?
もしそうなら西暦年毎に存在している月の値だけを、ComboBoxに入れたら良いように思えますが何せ初心者レベルのジジィなのでVBは難しいですね。
No.1
- 回答日時:
色々なチェックは省いています。
求めているのはこういうことですよね?
fsoを利用する必要はありません。
Imports System.IO
Public Class Form1
''' <summary>
''' ルートディレクトリ。
''' </summary>
Private Shared ReadOnly RootDirectory As String = "G:\日記"
''' <summary>
''' ボタンを押した契機で実施すると仮定
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub executeButton_Click(sender As Object, e As EventArgs) Handles executeButton.Click
If Nen.SelectedIndex = -1 OrElse Tuki.SelectedIndex = -1 Then
MessageBox.Show("選択されてません。" & vbCrLf & "西暦と月を選択して下さい。", "結果")
Return
End If
Dim scanDirectory As String = Path.Combine(RootDirectory, Nen.Text, Tuki.Text)
If Not Directory.Exists(scanDirectory) Then
MessageBox.Show("指定されたディレクトリは存在しません。" & vbCrLf & "西暦と月を選択して下さい。", "結果")
Return
End If
' サブディレクトリは走査しない
ListBox1.Items.Clear()
For Each file As String In Directory.GetFiles(scanDirectory, "*", SearchOption.TopDirectoryOnly)
ListBox1.Items.Add(Path.GetFileName(file))
Next
End Sub
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBAでファイル名を指定して保存するとき 4 2023/03/26 21:55
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチを用いたフォルダの自動移動
-
Subversionのリポジトリの削除
-
現在位置より2つ上のディレク...
-
FTPコマンドでディレクトリごと...
-
rmdirでフォルダが消せません
-
Smartyのテンプレート置き場に...
-
VB2008でFTPでのディ...
-
CFileDialogの最初のディレクト...
-
LinuxからNASを使用したときの...
-
IIS+PHP スクリプトから仮想デ...
-
URLの最後にhtmがなぜ付くの?
-
Permission denied in
-
バッチファイルで特定ファイル...
-
PHPの実行結果画面について
-
phpでのログファイル自動削除に...
-
xamppでPHPを実行
-
Visual C++ 2005 Express Editi...
-
ツリーメニューを縮小させたい
-
makefile でファイルをコピーす...
-
HOSTSファイルについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FTPコマンドでディレクトリごと...
-
CFileDialogの最初のディレクト...
-
バッチを用いたフォルダの自動移動
-
現在位置より2つ上のディレク...
-
fopenでファイルが開かない場合...
-
visualstudioでc#のdllができない
-
Subversionのリポジトリの削除
-
絶対パス?絶対アドレス?意味...
-
makefile でファイルをコピーす...
-
ファイル選択ダイアログで選択...
-
rmdirでフォルダが消せません
-
ファイルアップロードに関して...
-
【PHP】declare命令で”Fatal er...
-
[ ディレクトリ '.' は書き込み...
-
aspのページが表示できません
-
VB.NET 最下位のディレクトリ名...
-
glob関数で日本語文字が取得で...
-
図に示す階層構造で,現在のデ...
-
includeが出来ない訳とは?
-
環境変数をMakefile内で有効に...
おすすめ情報