Export All Certificates to .cer Files

Demonstrates how to export all certificates from a registry-based certificate store to .cer files where each filename is the serial number.

Dim ccs As New ChilkatCreateCS
ccs.ReadOnly = 1

'  Open the current-user certificate store:
Dim cs As ChilkatCertStore
Set cs = ccs.OpenCurrentUserStore()

If (Not (cs Is Nothing )) Then

    Dim cert As ChilkatCert
    Dim numCerts As Long
    numCerts = cs.NumCertificates
    Dim i As Long
    '  Print the distinguished name of each certificate
    For i = 0 To numCerts - 1
        Set cert = cs.GetCertificate(i)

        Dim filename As String
        filename = "certs/" & cert.SerialNumber & ".cer"

        cert.ExportCertDerFile filename

    Next

Else
    MsgBox ccs.LastErrorText
End If