Visual Basic

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

Try
    Me.PictureBox1.BackgroundImage = GetAvatar(ContactID)
    Me.cmdDeleteImage.Enabled = True
Catch ex As Exception
    Me.cmdDeleteImage.Enabled = False
End Try

Friend Function GetAvatar(ByVal ContactID As Integer) As Drawing.Image
    Dim pict As Drawing.Image
    'This just collects a file name
    Dim strFilename As String = cDBHandler.ExtractContactImage(ContactID)

    Try

        If strFilename.Trim > "" Then
            pict = Drawing.Image.FromFile(strFileName)
        Else
            pict = My.Resources.nouserpic_grey
        End If

    Catch ex As Exception

        pict = My.Resources.nouserpic_grey

    End Try
    Return pict
End Function