S
Silverado
Ich hab da eine Function geschrieben und es Bringt mir einen Fehler, den ich nicht wegbekomme, könnt ihr mir helfen. danke
An dem Rotgekenzeichneten stellen bringt das prog mir den Fhler:
Arraygrenzen können nicht inTypbezeichnern stehen.
An dem Rotgekenzeichneten stellen bringt das prog mir den Fhler:
Arraygrenzen können nicht inTypbezeichnern stehen.
Code:
Public Function moveto(ByVal movetofile As String, ByVal delfile As String, ByVal name1 As String, ByVal dateiN As String)
Dim ini As New IniReader("c:\datei.ini")
Dim Quelle As String = ini.ReadString(name1, "name2")
Dim Ziel As String = ini.ReadString(stadt, "Ziel")
Dim pfad As String = (Quelle & "\" & dateiN)
Dim fFile As FileInfo(Pfad)
movetofile = (Ziel & "\" & dateiN)
delfile = (Quelle & "\" & dateiN)
Try
If File.Exists(movetofile) Then
File.Delete(delfile)
End If
fFile.MoveTo(Ziel & "\" & dateiN)
Catch
MessageBox.Show("Dtei nicht vorhanden")
End Try
End Function