ciao sono un new.
Allora sto realizzando un programmino che mi rinomini delle foto contenute in una cartella.
Queste foto vengono rinominate in base ad un foglio in excel dove nella prima colonna c'è il nome della foto nella seconda il nome con cui deve essere rinominata.
questo è il cod
Public Class Form2
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr
Private Function seFileEsiste(ByVal nomeCompFile As String) As Boolean
Dim F As New System.IO.FileInfo(nomeCompFile)
If F.Exists Then
seFileEsiste = True
Else
seFileEsiste = False
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim percorso As String = Application.StartupPath & "\Files\"
Dim nomeFile As String = "Elenco.xls"
**da qui ho problemi e non va il prg*
Dim appExcel As New Excel.Application
Dim WB As Excel.Workbook = appExcel.Workbooks.Open(percorso & nomeFile)
Dim WS As Excel.Worksheet = WB.Worksheets("Foglio1")
appExcel.Visible = False
Dim i As Integer = 0
Try
For i = 1 To 3
If seFileEsiste(percorso & WS.Range("A" & i).Text) Then
My.Computer.FileSystem.RenameFile(percorso & WS.Range("A" & i).Text, WS.Range("B" & i).Text)
End If
Next i
Catch ex As Exception
'...
Finally
'Chiusura oggetti Excel...
End Try
End Sub
End Class
Rispondi quotando
