CreateFileAssociation – Creating a new file association
Shared Sub _ SHChangeNotify(ByVal wEventId As Integer, ByVal uFlags As Integer, _ ByVal dwItem1 As Integer, ByVal dwItem2 As Integer)End Sub’ Create the new file association” Extension is the extension