タイトル : OpenFileDialog のmultiselectの取り扱い 投稿日 : 2008/03/11(Tue) 18:13 投稿者 : ひでと
コードで予め複数のファイル名を設定して、OpenFileDialogを開きたいと思っています。 OpenFileDialogのFileNamesを利用したいと考えましたがFileNames(0)="test.txt" の様なわけにはいかないようです。 FileNameプロパティにファイル名を連結した文字列を設定しようとしましたが これも Ret = OpenFileDialog1.ShowDialog()とすると「有効なファイル名ではありません」 というエラーがでます。どのようにすればよいのでしょうか? 試験用にデスクトップに "2008年4月給与.kyo" "2008年2月給与.kyo" "2008年3月給与.kyo" のファイルを作っています。以下は試したコードです。よろしくお願いします。 Public Class Form1 Dim DirName As String = "C:\Documents and Settings\ひでと\デスクトップ" Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Ret As DialogResult Dim i As Integer Dim FileNameStr As String Dim FileNameStr2 As String Dim dum As String = "" OpenFileDialog1.Multiselect = True For i = 0 To 11 FileNameStr2 = CStr(Now.Year) & "年" & i + 1 & "月給与.kyo" FileNameStr = DirName & "\" & FileNameStr2 If System.IO.File.Exists(FileNameStr) Then dum = dum & """" & FileNameStr2 & """" & " " End If Next OpenFileDialog1.FileName = RTrim(dum) Debug.Print(dum) '"2008年4月給与.kyo" "2008年2月給与.kyo" "2008年3月給与.kyo" 出力結果です Ret = OpenFileDialog1.ShowDialog() 'ここでエラーがでます If Ret = Windows.Forms.DialogResult.OK Then Else Exit Sub End If End Sub End Class |