قراءة الملفات من سيرفر اخر

 

 

[color= #0600FF;]Imports System.[color= #0000FF;]IO

 

 [color= #008080; font-style: italic;]'page load or button CLick

    [color= #0600FF;]Dim DirName [color= #FF8000;]As [color= #FF8000;]String [color= #008000;]= [color= #808080;]"server2pdfFolder"

    [color= #0600FF;]Dim myDirectory [color= #FF8000;]As DirectoryInfo

        myDirectory [color= #008000;]= [color= #FF8000;]New DirectoryInfo[color= #000000;](DirName[color= #000000;])

        IterateDirectory[color= #000000;](myDirectory[color= #000000;])

 

[color= #008080; font-style: italic;]'---------------------------------------------------------------------

 

 

 

    [color= #FF8000;]Public [color= #0600FF;]Sub IterateDirectory[color= #000000;]([color= #FF8000;]ByVal aDir [color= #FF8000;]As DirectoryInfo[color= #000000;])

        [color= #0600FF;]Dim nextDir [color= #FF8000;]As DirectoryInfo

        IterateFiles[color= #000000;](aDir[color= #000000;])

        [color= #FF8000;]For [color= #0600FF;]Each nextDir In aDir.[color= #0000FF;]GetDirectories

            IterateDirectory[color= #000000;](nextDir[color= #000000;])

        [color= #FF8000;]Next

    [color= #0600FF;]End [color= #0600FF;]Sub

 

    [color= #FF8000;]Public [color= #0600FF;]Sub IterateFiles[color= #000000;]([color= #FF8000;]ByVal aDir [color= #FF8000;]As DirectoryInfo[color= #000000;])

        [color= #0600FF;]Dim aFile [color= #FF8000;]As FileInfo

        [color= #FF8000;]For [color= #0600FF;]Each aFile In aDir.[color= #0000FF;]GetFiles[color= #000000;]([color= #000000;])

 

            response.[color= #0600FF;]write[color= #000000;](aFile.[color= #0000FF;]FullName[color= #000000;])

        [color= #FF8000;]Next

    [color= #0600FF;]End [color= #0600FF;]Sub