1

問題は、文字列に変換できないことです

Dim path As String = "..\..\..\Tier1 downloads\CourseVB\"


If countNumberOfFolders > 0 Then 'if there is a folder then


    ' make a reference to a directory
    Dim di As New IO.DirectoryInfo(path)
    Dim diar1 As IO.DirectoryInfo() = di.GetDirectories()
    Dim dra As IO.DirectoryInfo

    'list the names of all files in the specified directory
    For Each dra In diar1

        Dim lessonDirectoryName() As Lesson
        lessonDirectoryName(0).lessonName = dra

    Next

'レッスンはオブジェクトで、lessonName は文字列型のプロパティです。directoryInfo を文字列に変換するにはどうすればよいですか?

4

2 に答える 2

1

DirectoryInfoには、文字列としてのディレクトリのパスであるFullNameプロパティがあります。

于 2010-04-17T04:16:18.217 に答える
0

コメントがコードと競合し、コードが少しバグっているように見えます。次のようなものが欲しいと思います： 

Dim lessonDirectoryNames As New List(Lesson)        
If Directory.Exists(path) Then
    For Each fileName as String In Directory.GetFiles(path)
        Dim les as New Lesson
        les.lessonName = fileName
        lessonDirectoryName.Add(les)
    Next 
End If
于 2010-04-17T09:46:42.727 に答える