Discussion :

[j0hn01]

Bonjour à tous, j'ai créé une application web en Asp.net, le but de l'application est la gestion de projet, lorsqu'un personne crée un nouveau projet il peut y avoir un lien vers un fichier concernant ce projet, ensuite lors de la consultation de ce projet il doit être possible, d'ouvrir directement le fichier en cliquant sur le lien introduit... J'utilise la fonction Vb "ShellExecute" Sur mon pc, en local, tout fonctionne correctement, le fichier indiqué s'ouvre.. lorsque je suis sur la version serveur du site web, je ne parviens pas à ouvrir un fichier qui se trouve sur le serveur, il ne trouve pas le repertoir... je m'y prend surement mal ... Si quelqu'un aurait une idée pour m'indiquer comment faire

Voici le code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
lngResult = 0
        strBuffer = ""
        Dim MAX_PATH = 260
        Dim SW_SHOWNORMAL = 1
        Dim Nomfich As String
        Nomfich = "LienFichier" 
 
        If Dir(Nomfich) = "" Then
            MsgBox("Fichier introuvable !") : Exit Sub
        End If
 
 
        Dim Ext As String = ""
 
        If Nomfich <> "" Then
 
            Ext = UCase(Right(Nomfich, 3))
 
 
            If (Ext = "TXT" Or Ext = "DOC" Or Ext = "XLS" Or Ext = "CSV" Or Ext = "PDF" Or Ext = "VSD" Or _
                Ext = "HTM" Or Ext = "JPG" Or Ext = "JPEG" Or Ext = "GIF" Or Ext = "BMP" Or _
                Ext = "TIF" Or Ext = "JPE" Or Ext = "ICO" Or Ext = "MSG" Or Ext = "EB\" Or Ext = "EB") Then
 
                strBuffer = Space$(MAX_PATH)
                lngResult = FindExecutable(Nomfich$, "", strBuffer)
 
                If strBuffer <> "" Then
 
                    strBuffer = Left(Nomfich, Len(Nomfich) - Len(Dir(Nomfich)))
 
                    Dim handle As Integer = ConsultationHistoriques.FindWindow(vbNullString, "CsouBotV1.1")
 
                    ShellExecute(handle, vbNullString, Nomfich, vbNullString, strBuffer, SW_SHOWNORMAL)
 
                End If
            Else
                MsgBox("EXTENTION NON PERMISE : " & Ext, vbExclamation)
                Exit Sub
            End If
        End If

[zoltar_x]

A mon avis, tu t'es trompé de forum : ton script c'est du Wsh avec vbscript.
Quoi qu'il en soit, si tu veux accéder et ouvrir un fichier en asp.net et vb.net, il faut utiliser la classe StreamReader.

Voici un bout de code pour un fichier simple genre texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim chemin As String
chemin = "mon_document.txt"
 
        Try
 
            If File.Exists(Server.MapPath(chemin)) Then
 
                Dim objReader As New StreamReader(Server.MapPath(chemin))
                Dim texte As String
 
                texte = objReader.ReadToEnd
 
		etc....	
 
 
                objReader.Close()
 
            Else
 
                etc....
 
            End If
 
        Catch

[j0hn01]

Je vais réexpliquer mon problème, je n'ai pas été assez clair ... et si je me suis trompé de forum excusez moi

Donc voilà ... j'ai un lien vers un document quelconque ... c'est-à-dire, un fichier word, excel , pdf, une image , un .msg ou autre ... lorsque l'utilisateur clique sur le lien, on ma demandé a ce que le fichier voulu soit ouvert dans son application respective... mais bon voilà mon code ne fonctionne pas sous le serveur apparement, il ne lance rien du tout après le chargement et pourtant en local c'est niquel le fichier se lance comme il le faut ... si quelqu'un aurait une idée ça serait magnifique =)
D'avance merci =)

[roster]

Je pense qu'il faut mettre ton fichier excel ou autre dans le répertoire ClientBin de ton serveur en asp.net.