Sub checagemdearquivo
If File.Exists(FP,"1.jpg") = True Then
ImageView1.Bitmap = LoadBitmap(FP, "1.jpg")
Else
'nada
End If
If File.Exists(FP,"2.jpg") = True Then
ImageView2.Bitmap = LoadBitmap(FP, "2.jpg")
Else
'nada
End If
If File.Exists(FP,"3.jpg") = True Then
ImageView3.Bitmap = LoadBitmap(FP, "3.jpg")
Else
'nada
End If
If File.Exists(FP,"4.jpg") = True Then
ImageView4.Bitmap = LoadBitmap(FP, "4.jpg")
Else
'nada
End If
If File.Exists(FP,"5.jpg") = True Then
ImageView5.Bitmap = LoadBitmap(FP, "5.jpg")
Else
'nada
End If
If File.Exists(FP,"6.jpg") = True Then
ImageView6.Bitmap = LoadBitmap(FP, "6.jpg")
Else
'nada
End If
If File.Exists(FP,"7.jpg") = True Then
ImageView7.Bitmap = LoadBitmap(FP, "7.jpg")
Else
'nada
End If
If File.Exists(FP,"8.jpg") = True Then
ImageView8.Bitmap = LoadBitmap(FP, "8.jpg")
Else
'nada
End If
'Try
'File.Copy(File.DirAssets, "config.ini",FP, "config.ini")
'Catch
' Msgbox("error", "error")
'End Try
End Sub