Download All Files Ftp Directory Vb Net
Private Sub RecursiveDirectoryCopy( ByVal sourceDir As String, ByVal destDir As String, ByVal fRecursive As Boolean, ByVal overWrite As Boolean)Dim sDir As StringDim dDirInfo As IO. DirectoryInfoDim sDirInfo As IO. DirectoryInfoDim sFile As StringDim sFileInfo As IO. FileInfoDim dFileInfo As IO. FileInfo' Add trailing separators to the supplied paths if they don't exist.If Not sourceDir.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString) ThensourceDir &= System.IO.
Download All Files In Ftp Directory Vb.net
Path.DirectorySeparatorCharEnd IfIf Not destDir.EndsWith(System.IO.Path.DirectorySeparatorChar.ToString) ThendestDir &= System.IO. Path.DirectorySeparatorCharEnd If'If destination directory does not exist, create it.dDirInfo = New System.IO. Corporate express brand divider tab template. DirectoryInfo(destDir)If dDirInfo.Exists = False Then dDirInfo.CreatedDirInfo = Nothing' Recursive switch to continue drilling down into directory structure.If fRecursive Then' Get a list of directories from the current parent.For Each sDir In System.IO. Directory.GetDirectories(sourceDir)sDirInfo = New System.IO.
DirectoryInfo(sDir)dDirInfo = New System.IO. DirectoryInfo(destDir & sDirInfo.Name)' Create the directory if it does not exist.If dDirInfo.Exists = False Then dDirInfo.Create' Since we are in recursive mode, copy the children alsoRecursiveDirectoryCopy(sDirInfo.FullName, dDirInfo.FullName, fRecursive, overWrite)sDirInfo = NothingdDirInfo = NothingNextEnd If' Get the files from the current parent.For Each sFile In System.IO. Directory.GetFiles(sourceDir)sFileInfo = New System.IO. FileInfo(sFile)dFileInfo = New System.IO. FileInfo(Replace(sFile, sourceDir, destDir))'If File does not exist. Copy.If dFileInfo.Exists = False ThensFileInfo.CopyTo(dFileInfo.FullName, overWrite)Else'If file exists and is the same length (size). If file exists and is of different Length (size) and overwrite = True.
Download All Files Ftp Vb.net
CopyIf sFileInfo.Length dFileInfo.Length AndAlso overWrite ThensFileInfo.CopyTo(dFileInfo.FullName, overWrite)'If file exists and is of different Length (size) and overwrite = False. SkipElseIf sFileInfo.Length dFileInfo.Length AndAlso Not overWrite ThenDebug.WriteLine(sFileInfo.FullName & ' Not copied.' )End IfEnd IfsFileInfo = NothingdFileInfo = NothingNextEnd SubI think the commenting is fairly self-explanatory, but if you need some examples of usage, here they are:To recursively search and overwrite the existing copy.