[CreateObject] créer fichier .dat

Version imprimable

03/09/2006, 20h33
maniolo

[CreateObject] créer fichier .dat
Bonjour à tous,
Lorsque je crée un fichier avec mon bout de code ci-dessous cela me créer bien un fichier .dat dans le dossier mais le fichier est toujours vide et un autre fichier portant le meme nom mais sans extension et contenant les données se crée à la racine du projet , je n'arrive pas à savoir pourquoi merci de votre aide
Code:

1 2 3 Set Fsystem = CreateObject("Scripting.FileSystemObject") Set MonFichier = Fsystem.CreateTextFile("" & App.Path & "\Dossier\" & fichierTemp & ".dat")
03/09/2006, 22h16
SfJ5Rpw8

ben il nous manque le morceau de code ou tu écrit ces fameuses donneés

J'utilise une procédure

Code:

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
 
Private Sub Init(strNomFichier As String)
Dim intPlace As Integer
 
 structReserv.strNom = Space(30)    
 structReserv.strPrenom = Space(35)      
 structReserv.strNumTel = Space(10)     
 
 Close #1
 
 Open strNomFichier For Random As #1 Len = Len(structReserv)
 
 For intPlace = 1 To 114
     Put #1, intPlace, structReserv      
     If Me.lblPlace(intPlace) >= 1 And Me.lblPlace(intPlace) <= 37 Then
        Me.lblPlace(intPlace).BackColor = RGB(141, 16, 95)
     ElseIf Me.lblPlace(intPlace) >= 38 And Me.lblPlace(intPlace) <= 70 Then
        Me.lblPlace(intPlace).BackColor = RGB(246, 61, 178)
     ElseIf Me.lblPlace(intPlace) >= 71 And Me.lblPlace(intPlace) <= 114 Then
        Me.lblPlace(intPlace).BackColor = RGB(240, 133, 221)
     End If
 
     Me.lblPlace(intPlace).ForeColor = vbYellow  
     Me.lblPlace(intPlace).Visible = True       
 Next intPlace
 
End Sub

03/09/2006, 23h22
SfJ5Rpw8

et comment l'appelle tu ta procédure... , et pourquoi mélange tu deux maniéres différentes d'écrire dans ton fichier (filesystemobject et méthoque classique par open/put..)
03/09/2006, 23h45
maniolo

Pour appeler ma procédure

Code:

Init(strFichierTemp)

filesystemobject me sert en fait juste à créer le fichier, ensuite j'écris dans le fichier avec la methode open
03/09/2006, 23h50
SfJ5Rpw8

ben la méthode open créé aussi le fichier...

bon tu ne nous as pas encore tout dit... qu'elle valeur écrit tu dans cette variable
strFichierTemp qui je suppose n'est pas la même que la variable Fichier temp vu plus haut !! ou bien il manque le répertoire..