Visual Basic

gfswWatchFolder = New System.IO.FileSystemWatcher()

'This is the path we want to monitor
gfswWatchFolder.Path = "C:\My Documents\Temp2"

'Add a list of Filters we want to specify, making sure
'you use OR for each Filter as we need to all of those
gfswWatchFolder.NotifyFilter = IO.NotifyFilters.DirectoryName
gfswWatchFolder.NotifyFilter = gfswWatchFolder.NotifyFilter Or IO.NotifyFilters.FileName
gfswWatchFolder.NotifyFilter = gfswWatchFolder.NotifyFilter Or IO.NotifyFilters.Attributes

'Add the handler to each event
AddHandler gfswWatchFolder.Changed, AddressOf LogChange
AddHandler gfswWatchFolder.Created, AddressOf LogChange
AddHandler gfswWatchFolder.Deleted, AddressOf LogChange

'Add the rename handler as the signature is different
AddHandler gfswWatchFolder.Renamed, AddressOf LogChange

'Set this property to true to start watching
gfswWatchFolder.EnableRaisingEvents = True

<pre>    Private Sub LogChange(ByVal source As Object, ByVal e As System.IO.FileSystemEventArgs)

        'Form_Load: System.Windows.Forms.Control.CheckForIllegalCrossThreadCalls = False

        If e.ChangeType = IO.WatcherChangeTypes.Changed Then
            TextBoxMultiLine1.Text = "File " & e.FullPath & " has been modified." & vbCrLf
        End If
        If e.ChangeType = IO.WatcherChangeTypes.Created Then
            TextBoxMultiLine1.Text = "File " & e.FullPath & " has been created." & vbCrLf
        End If
        If e.ChangeType = IO.WatcherChangeTypes.Deleted Then
            TextBoxMultiLine1.Text = "File " & e.FullPath & " has been deleted." & vbCrLf
        End If
        If e.ChangeType = IO.WatcherChangeTypes.Renamed Then
            TextBoxMultiLine1.Text = "File " & e.FullPath & " has been renamed." & vbCrLf
        End If

    End Sub

<pre>Dim request As FtpWebRequest = DirectCast(WebRequest.Create(mstrFTPUri & strRemoteApplicationFolder), FtpWebRequest)

Private Sub DeleteCategories()
    Dim objNS As NameSpace
    Dim objCat As Category
   
    Set objNS = Application.GetNamespace("MAPI")
   
    If objNS.Categories.Count > 0 Then
       
        For Each objCat In objNS.Categories
            objNS.Categories.Remove (objCat.CategoryID)
        Next
       
    End If
       
    Set objCat = Nothing
    Set objNS = Nothing
   
End Sub

Sub RestoreCategories()

AddCategory "1", 4, 0
AddCategory "2", 18, 0
AddCategory "3", 22, 0
AddCategory "4", 14, 0
AddCategory "5", 5, 0
AddCategory "6", 7, 0
AddCategory "7", 6, 0
AddCategory "8", 9, 0
AddCategory "9", 8, 0
AddCategory "10", 10, 0
AddCategory "11", 2, 0

End Sub

Private Sub cmdClose_Click()
    Dim Cancel As Integer
    Form_BeforeUpdate (Cancel)
    If Cancel Then
        If MsgBox("This record contains errors. Do you wish to correct them before closing the form?", vbYesNo, "Errors") = vbYes Then
            Exit Sub
        Else
            If Me.NewRecord Then
                MsgBox "The current record will be discarded.", vbInformation
            Else
                MsgBox "Any changes made to the current record will be discarded.", vbInformation
            End If
            Me.Undo
        End If
    End If
    blMayClose = True
    DoCmd.Close acForm, Me.Name
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim rst As New ADODB.Recordset
    
    If Me.NewRecord Then Contact_Pt = lbxContacts.Value
    
    Set rst = New ADODB.Recordset
    rst.Open "SELECT ID FROM Assets WHERE package_Pt = " & ID, CurrentProject.Connection, adOpenStatic, adLockReadOnly
    If Not (rst.EOF And rst.BOF) Then
        If IsNull(Start_Date.Value) Or IsNull(End_Date.Value) Then 'this is where Cancel gets set to True
            MsgBox "You must enter start and end dates for the package before saving it.", vbExclamation, "Dates Missing"
            Cancel = True
        ElseIf End_Date.Value <= Start_Date.Value Then
            MsgBox "The end date must be after the start date.", vbExclamation, "Invalid dates"
            Cancel = True
        End If
    End If
    rst.Close
    Set rst = Nothing
    
End Sub

[id(2)] HRESULT Request  ( [in] long id, [in] BSTR version, [in,out] BSTR sender, [in] BSTR login, [in] BSTR selection, [in, out] BSTR* data , [out, retval] long* retval );

Private Sub Request_1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Request_1.Click
      Dim r As Integer
      Dim data As String
      Dim ID As String
      Dim sender As String
      sender = "DatO"
      If ID_KS_1.Text <> "" Then
          ID = "ID_KS=" & ID_KS_1.Text & ","
          sender = "KS_Trifact"
      End If
      ErrorText.Text = ""
      If obj Is Nothing Then obj = CreateObject("NmsTaskDbSv.64Bit_NmsDbData")
      'UPGRADE_WARNING: Couldn't resolve default property of object obj.Request. Click for more: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'
      'r = obj.Request(15101, "1.0", sender, "customerservice/customer", ID & "ACCOUNT=" & Par_1_1.Text, "test")
      r = obj.Request(15101, "1.0", sender, "customerservice/customer", ID & "ACCOUNT=" & Par_1_1.Text, (data))
      If (r = 0) Then
          Result_1.Text = data
      Else
          ShowLastError()
      End If
End Sub

'r = obj.Request(15101, "1.0", sender, "customerservice/customer", ID & "ACCOUNT=" & Par_1_1.Text, data)

Hi everyone, my name is Maurizio and my question is this
In VB I would like to know how to create one or more objects of the same type at run time.
I'll explain:
1) In a form I insert a textbox1 and a button
The purpose of my request is to know how: By pressing this button
It should bring up another textbox and so on.
that's all !!!!
If I remember correctly I used the New function
But it seems that this does not work in vb.
Could you please help me Thanks
Greetings from Maurizio