vb6 winrar

Private Sub cmdComprimi_Click()
Dim comando As String
Dim nomedir As String
Dim strAnno As String
Dim strMese As String
Dim S As Object


  'imposta il nome del file.Presuponendo che il periodo scelto sia un mese e quindi prende in considerazione il mede della data di inizio estrazione
  'se inevecej è un trimestre mette il primo carattere del cmbmese
  strAnno = Year(Me.TxtInizio)
  strMese = Format(Month(Me.TxtInizio), "00")
  If Me.CmbTipoPeriodo = "trim" Then
    strMese = "trim" & Left(Me.CmbMese, 1)
  End If
  nomedir = App.Path & "\report" & strAnno & "\" & strAnno & "_" & strMese & "\"

  comando = "c:\Programmi\WinRAR\rar.exe a " & """" & nomedir & strAnno & "_" & strMese & ".rar"" -p" & Format(Me.TxtInizio, "mmmmYYYY") & " -ep " & Chr(34) & nomedir & "*" & Chr(34)
  Shell comando

  Set S = CreateObject("Shell.Application")
  S.ShellExecute (nomedir)
  Open nomedir & "pw.txt" For Output As #1
  Print #1, Format(Me.TxtInizio, "mmmmYYYY")
  Close (1)
End Sub