Visual Basic - pasar codigo de vb a PHP o Java

Public fs As New FileSystemObject

Public temporal As Folder

Public Archivo As File

Dim NArchivo As String

Dim XArchivo As String

Private Sub CommandButton1_Click()

Dim ult, c As Long

'Set temporal = fs.GetFolder(Application.ActiveWorkbook.Path & "\FacturaXLS\")       '("c:/cias/Rl/")

'MsgBox temporal.Files.Count

ult = Cells(Rows.Count, 1).End(xlUp).Row

For c = 1 To ult

'andres

'XArchivo = Application.ActiveWorkbook.Path & "\FacturaXLS\" & "CommercialInvoice_00" & Range("A" & c).Value & "_1.xls"

'Francisco

XArchivo = "Y:\comm_invoice\" & "CommercialInvoice_00" & Range("A" & c).Value & "_1.xls"

NArchivo = "CommercialInvoice_00" & Range("A" & c).Value & "_1.xls"

'For Each Archivo In temporal.Files

 If ExisteArchivo(XArchivo) = True Then

        GuardarPdf (XArchivo)

        Range("B" & c).Value = "Encontrado - Convertido"

    Else

        Range("B" & c).Value = "No Existe"

 End If

Next c

'Next Archivo

End Sub

Public Function ExisteArchivo(Archivo As String) As Boolean

Dim Nombre As String ' Temporal para la búsqueda del archivo dado.

ExisteArchivo = False ' Supone que no existe.

Nombre = Dir(Archivo)

    If Len(Nombre) > 0 Then

        ExisteArchivo = True

    End If

End Function

Sub GuardarPdf(Libro As String)

'

' GuardarPdf Macro

'

' Acceso directo: Ctrl+Mayús+Q

'

        Workbooks.Open Filename:=Libro

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "C:\Facturas PDF\" & Mid(NArchivo, 1, Len(NArchivo) - 4) & "pdf", Quality:= _

        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=False

    ActiveWorkbook.Close

End Sub