Loading a DICOM Directory for Visual Basic

Private Sub TestLoadingDicomDir()
   Dim DicomDir As New LEADDicomDir

   ' Load a DICOMDIR File. Note: It is necessary to specify
   ' DS_LOAD_CLOSE so that we can save the Directory later.
   DicomDir.LoadDicomDir "C:\Medical Images\DICOMDIR", DS_LOAD_CLOSE

   ' Add some additional DICOM files to the loaded Directory
   DicomDir.InsertDicomFile "C:\Medical Images\Image"
   DicomDir.InsertDicomFile "C:\Medical Images\Patient 2\Image1"

   ' Save the DICOMDIR File
   DicomDir.SaveDicomDir
End Sub