[tres urgent] aide créeation fichier

Question

Hello,

je souhaite créer un fichier texte s'il n'existe pas, j'ai fais le code :

Cm = "C:\x.txt"

    If Dir(Cm) = "" Then
    
      N = 1
      Open Cm For Append As #N
         Print #N, ""
      Close #N
    
    End If

mais cela ne marche pas, je comprend pas car "append" devrait créer le fichie s'il n'existe pas

merci de m'aider!

cs_DARKSIDIOUS · Answer

Salut,

Utilise le mode Output !
______________________________________
DarK Sidious

jigggsaw · Answer

slt, j'ai la meme erreur, j'ai essayé avec random, in/output, append

PCPT · Answer

salut,

si N ne reçoit pas FREEFILE, le #0 ne sera pas valide 

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_DARKSIDIOUS · Answer

Salut,

"j'ai la meme erreur" : quelle erreur ? Ca pourrait nous aider à t'aider !

______________________________________
DarK Sidious

PCPT · Answer

oups, lu trop vite...., N=1
cependant ma remarque reste juste, peut-être as-tu locké en faisant différents tests, ou plus simplement que le fichier existe ^^

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

jigggsaw · Answer

l'erreur est chemin dacces introuvable sur la ligne:

Open Cm For Append As #N

(car le fichier n'existe pas et vb le crée pas)

merci de votre aide

jigggsaw · Answer

ca va jai résolu le pb, ct la faute de vista

jigggsaw · Answer

une derniere question : est ce que VB est bien un langage de programmation OBJET ? merci

PCPT · Answer

tu "peux" coder objet. le résultat est même plutôt étonnant 
mais nativement, non

thierylaurent · Answer

tient essaye sa moi je l'ai fait sa marche tu verra la syntaxe est bisare car j'appelle un fichier xls (exel) que je transforme en fichier texte mais bon sa marche impécable

Try
                    Dim S1, ErrStr As String

                    If File.Exists(FNxls) Then
                        Kill(FNxls)
                    End If
                    ' Creer l'application XL
                    oXL = CreateObject("Excel.Application")
                    oBook = oXL.Workbooks.Add
                    oSheet = oBook.Worksheets(1)

                    With oSheet
                        'entree les noms de colonne 
                        For iCol = 1 To ColMax
                            .Cells(1, iCol) = "NomCol-" & CStr(iCol)
                        Next
                    End With

                    'sauvegarder 
                    Try
                        oXL.DisplayAlerts = False
                        oSheet.SaveAs(FNxls)
                    Catch ex As Exception                        ErrStr "Erreur " & vbCrLf & ex.ToString
                    End Try

                    oXL.Workbooks.Close()
                    oXL.Quit()
                    oXL = Nothing

                    S1 = "Le fichier txt" & vbCrLf & _
                         FNxls & vbCrLf & _
                         "à ete creé est sauvegardé."
                    MsgBox(S1)

                Catch ex As Exception
                    MsgBox("erreur de create text ", "erreur")
                End Try

voila en espérant que sa ta aider

[tres urgent] aide créeation fichier

10 réponses

Votre réponse

Discussions similaires