Envoyer un nouveau fichier dans un repertoire et sauvegarder l'ancien

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 055 fois - Téléchargée 29 fois

Contenu du snippet

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

A voir également

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.