ce petit code permet via une fenetre input + un bouton d'envoyer un nouveau fichier dans un repertoire et de sauvegarder l'ancien dans un autre repertoire.
Source / Exemple :
pour avoir une fenetre input sur le form il faut copier ce code directement dans l'HTML
<input id="file1" type="file" size="20" name="file1" runat="server">
dans le behind il faut ajouter
Imports System.IO
dans le bouton "btnenvoyer" il faut rajouter ce code
Private Sub btnenvoyer_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenvoyer.ServerClick
Dim thepath As String
thepath = "C:\Inetpub\wwwroot\annuaire\"
If File.Exists(thepath & "personnel.xls") Then
'je copie d'abord le fichier existant dans un autre repertoire en rajoutant la date dans son nom pour garder toutes les sauvegardes.
File.Copy(thepath & "personnel.xls", "C:\sauvegarde-annuaire\personnel" & Now.ToString("d-MM-yy-hms") & ".xls")
'je supprime le fichier existant avant de recevoir le nouveau dans mon repertoire, et je verifie qu'on a bien selectionner un autre fichier avant de supprimer l'existant
If Not file1.PostedFile Is Nothing Then
File.Delete(thepath & "personnel.xls")
End If
End If
j'importe le nouveau fichier
If Not file1.PostedFile Is Nothing Then
file1.PostedFile.SaveAs(thepath & "personnel.xls")
End If
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.