none
Ouvrir un fichier par défaut par l'application et entamer une commende RRS feed

  • Question

  • Bonjour, je recherche comment ouvrir un fichier par défaut par l'application que j'ai créer et entamer une commende qui mettra le contenue dans les textbox. J'utilise ceci présentement avec des bouton (http://social.msdn.microsoft.com/Forums/fr-FR/c2153fe7-0144-4f7a-a778-2d1a5aa605b7/enregistrercharger-plusieur-textbox?forum=vbasicfr).

    j'ai lue ceci (http://msdn.microsoft.com/fr-fr/library/windows/apps/xaml/hh779671.aspx) mais je ne comprend pas trop le fonctionnement.

    Merci de votre aide.


    jeudi 29 mai 2014 15:05

Réponses

  • J'ai réussi :D Voici mon code

    Imports System Imports System.IO Imports System.Windows.Forms Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If Environment.GetCommandLineArgs().Length = 2 Then Dim LLoad As String = Environment.GetCommandLineArgs(1) TextBox14.Text = LLoad Else End If

    If InStr(1, TextBox14.Text, ".txt", vbTextCompare) Then EF1() EF2() MsgBox("Open completed!") CheckBox2.Checked = True End If End Sub End Class






    • Marqué comme réponse Popol85 lundi 2 juin 2014 06:42
    • Modifié Popol85 lundi 2 juin 2014 18:11 enlever le code inutile a la solution
    lundi 2 juin 2014 06:41

Toutes les réponses

  • Bonjour,

    ' ta question :
    ' comment ouvrir un fichier par défaut par l'application que j'ai créer
    ' et entamer une commende qui mettra le contenue dans les textbox
    '
    Option Explicit On
    Public Class Form1
    
    	Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    		TextBox1.Text = ""
    		If System.IO.File.Exists(My.Application.Info.DirectoryPath & "\TON_FICHIER.txt") = False Then
    			Dim p As New System.IO.StreamWriter(My.Application.Info.DirectoryPath & "\TON_FICHIER.txt")
    			p.Close()	'création du fichier si inexistant (la 1ere fois)
    			GoTo suite
    		End If
    		Dim p2 As New System.IO.StreamReader(My.Application.Info.DirectoryPath & "\TON_FICHIER.txt")
    		While p2.Peek() >= 0 ' lecture et écrit si <> vide
    			TextBox1.Text = TextBox1.Text & p2.ReadLine() & vbCrLf	' lecture
    		End While
    		p2.Close()
    suite:
    	End Sub
    
    End Class

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire



    • Modifié EhJoe jeudi 29 mai 2014 18:59 rajout
    • Proposé comme réponse EhJoe jeudi 29 mai 2014 18:59
    jeudi 29 mai 2014 18:57
  • Bonjour, j'avais oublier de mentionner que le fichier a ouvrir peut se trouver n'importe où dans l'ordinateur, un peut comme un media player où que les fichier vidéo peut être éparpiller dans les dossier et que quand on double click sur la vidéo sa ouvre le media player et lie le fichier vidéo.

    Mais je retiens ta méthode pour crée des base de donner sur un autre projet que je travaille aussi.

    Merci de ton aide.

    jeudi 29 mai 2014 21:08
  • Bonsoir Popol n°85,

    Je crois qu'il y a des variables d'environnement pour faire des recherches tout azimut :

    %nom_variable_environnement% 
    

    à intégrer dans le chemin de recherche, mais je ne sais pas le faire, sans doute auras-tu une réponse ici, désolé.

    Il y a bien une commande système (de mémoire) :

    dir c:\TON_FICHIER.*/s
    
    Second exemple avec fichier batch créé et supprimé depuis l'application...

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    • Proposé comme réponse EhJoe jeudi 29 mai 2014 22:12
    jeudi 29 mai 2014 22:08
  • Bonjour, je me suis trouver une astuce, mais il me reste a trouver comment introduire le lien du fichier dans le textbox14.

    Exemple de mon idée:

    Double click sur (C:\Users\***\Downloads\Bob.txt) et le lien (C:\Users\***\Downloads\Bob.txt) vien s'inscrire dans le textbox14.

    Double click sur (C:\Users\***\Documents\Test.txt) et le lien (C:\Users\***\Documents\Test.txt) vien s'inscrire dans le textbox14.

    etc. les fichier peuvent être n'importe et où dans l'ordinateur.

    Mais évidement les lien s'inscrive d'est l'ouverture.

    Merci de votre aide.

    dimanche 1 juin 2014 21:08
  • J'ai réussi :D Voici mon code

    Imports System Imports System.IO Imports System.Windows.Forms Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If Environment.GetCommandLineArgs().Length = 2 Then Dim LLoad As String = Environment.GetCommandLineArgs(1) TextBox14.Text = LLoad Else End If

    If InStr(1, TextBox14.Text, ".txt", vbTextCompare) Then EF1() EF2() MsgBox("Open completed!") CheckBox2.Checked = True End If End Sub End Class






    • Marqué comme réponse Popol85 lundi 2 juin 2014 06:42
    • Modifié Popol85 lundi 2 juin 2014 18:11 enlever le code inutile a la solution
    lundi 2 juin 2014 06:41
  • Bonjour

    Merci de votre retour!

    Bien cordialement,


    Aurel BERA, MSFT
    MSDN Community Support. LE CONTENU EST FOURNI "TEL QUEL" SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE.
    S'il vous plaît n'oubliez pas de "Marquer comme réponse" les réponses qui ont résolu votre problème. C'est une voie commune pour reconnaître ceux qui vous ont aidé, et rend plus facile pour les autres visiteurs de trouver plus tard la résolution.

    lundi 2 juin 2014 07:29