Visual Basic

zaimah wrote:

When i put msgbox inside For Each d1 in dirs1, nothing come out

Try
            Dim dA1, dB1 As DirectoryInfo
            Dim dirA2 As FileSystemInfo() = dirA1.GetDirectories
            Dim dirB2 As FileSystemInfo() = dirB1.GetDirectories
            
            For Each dA1 In dirA2
                For Each dB1 In dirB2

                   If dA1.Name = dB1.Name Then

                   Dim dA2, dB2 As FileSystemInfo
                   Dim dirA3 As FileSystemInfo() = dA1.GetFileSystemInfos
                   Dim dirB3 As FileSystemInfo() = dB1.GetFileSystemInfos
                        
                        For Each dA2 In dirA3
                            For Each dB2 In dirB3

                              If dA2.Name = dB2.Name Then
                              Else
                                ListBox1.Items.Add(dA2.FullName)
                              End If
                            Next dB2
                        Next dA2

                   Else
                        
                    ListBox1.Items.Add(dA2.FullName)

                   End If
                 Next dB1
            Next dA1
            Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

zaimah wrote:

MsgBox(ex.Message)

zaimah wrote:

For Each dA2 In dirA3
For Each dB2 In dirB3
If dA2.Name = dB2.Name Then
Else

Dim folderALocation As String = txtdir1.Text
Dim folderBLocation As String = txtdir2.Text

   
'Get all files in Folder A including those found in sub directories
  Dim folderAFiles() As String = System.IO.Directory.GetFiles  
  (folderALocation, "*.*", IO.SearchOption.AllDirectories)

'Enumerate through the string array and determine if each file exists within Folder B
        
   For Each fileName As String In folderAFiles

      If System.IO.File.Exists(fileName.Replace(folderALocation,  
      folderBLocation)) = False Then
            ListBox1.Items.Add(fileName)
      End If

      Next

...
dim filename2 as string=filename.Replace(AFolder,BFolder)
Console.WriteLine("--- Going to look if this exists: "&filename2)
if not File.Exists(filename2) then
...

Dim folderopen As New FolderBrowserDialog
        With folderopen
            .RootFolder = Environment.SpecialFolder.Desktop
            .SelectedPath = "C:\DOCUMENT"
            .Description = "Select the source directory"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
' Display the selected folder if the user clicked on the OK button.
                MessageBox.Show(.SelectedPath)
                txtdir2.Text = .SelectedPath
            End If

        End With

Open connection
Execute insert statement
Execute the @@IDENTITY selection
Close the connection

                             ......
           ,@NoteField
           ,@UDField1
           ,@UDField2
           ,@UDField3
           ,@UserName)

DECLARE @NewID int
SET @NewID = SCOPE_IDENTITY()

INSERT INTO [dbo].[CON_tbl_ContactPictures]
           ([ID]
           ,[ContPict])
     VALUES
           (@NewID
           ,NULL)

SELECT @NewID AS [ID]

'This is a brand new insert so we can get the Contact ID back from it.
dtblData = cDB.GetDataTableFromProc(listParams)
If Not dtblData Is Nothing Then
    If dtblData.Rows.Count > 0 Then
        Dim drowData As DataRow
        drowData = dtblData.Rows(0)
        ContactID = drowData("ID")
        drowData = Nothing
    Else

Dim ID As Int32