1

コードを書くのに苦労しているので、助けが必要です：

以下の関数は、データベースを反復処理してファイル名をフェッチし、存在する場合はそれらのファイルをダウンロードします。ここにコードを書くのに苦労しています「ここからファイルコードをダウンロードしてください」。また、このコードでダウンロードされたファイルの名前であるARRAYを返す必要があります。

誰か助けてくれませんか。

Public Function DownloadFile(ByVal SourcePath As String, ByVal TargetPath As String) As Boolean


    Dim DownloadFile As Boolean = False
    Dim lvar_FileName As String = Nothing
    Dim lvar_FileType As String = Nothing

    Using Conn As New SqlConnection(ConnString)
        SQLCommand = New SqlCommand("File_List",Conn)
        SQLCommand.CommandText = "Select File_Name from File_List "
        Try
            Conn Conn.Open()
            Dim reader As SqlDataReader
            reader = SQLCommand.ExecuteReader()
            While reader.Read()
                'Code Here
                lvar_FileName = reader(0)

        'Download Files Code here

            End While
        Catch ex As Exception

        End Try
    End Using

    Return DownloadFile 

End Function

よろしく

4

1 に答える 1

0

List(Of String)配列の代わりに、サイズを変更できるため、を返します。

Public Function DownloadFile(ByVal SourcePath As String, ByVal lvar_TargetPath As String) As List(Of String)
    Dim allFiles As New List(Of String) 
    Using Conn As New SqlConnection(ConnString)
        Using SQLCommand = New SqlCommand("Select File_Name from File_List", Conn)
            Try
                Conn.Open()
                Using reader = SQLCommand.ExecuteReader()
                    While reader.Read()
                        Dim fileName = reader.GetString(0)
                        Dim destPath = Path.Combine(SourcePath, fileName)
                        allFiles.Add(destPath)
                    End While
                End Using
            Catch ex As Exception
                ' Log exception here, otherwise don't catch it
            End Try
        End Using
    End Using
    Return allFiles
End Function
于 2012-11-26T08:52:16.730 に答える