[VB6] CreateFolder / CreateFile

**Jihnn** · 14/04/2006, 20h45

Bonjour,

Voici un bout de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub crtFolder()
        Set FSO = CreateObject("Scripting.FileSystemObject")
        If Not FSO.FolderExists("C:\Programs File\Blizzard CDKey Manager\") Then
            FSO.CreateFolder "C:\Programs File\Blizzard CDKey Manager\"
            FSO.CreateFile "C:\Programs File\Blizzard CDKey Manager\CDKey.ini\"
                Set TF = FSO.OpenTextFile("C:\Programs File\Blizzard CDKey Manager\CDKey.ini\", 2, True)
                TF.WriteLine "[General]" & vbCrLf & "AutoUpdate=True" & vbCrLf & "Path=C:\Programs File\Blizzard CDKey Manager\CDKey.txt\"
                TF.Close
                Set TF = Nothing
            FSO.CreateFile "C:\Programs File\Blizzard CDKey Manager\CDKey.txt\"
        End If
End Sub

Je ne peux pas créer de dossier / ficher, j'ai une erreur 76 (Path not found).

Merci d'avance,

Thunder

**SfJ5Rpw8** · 15/04/2006, 01h49

et d'ou il sort se code ???

déjà c'est pas à programm qu'il fo le s mais à file !!!

et puis CreateFile ?? ça existe ???

**jmfmarques** · 15/04/2006, 07h47

C'est du Script et, apparemment, il termine les noms de fichier par un "\"

Comme s'il s'agissait de répertoires

**Jihnn** · 15/04/2006, 16h18

et d'ou il sort se code ???

De mon programme

déjà c'est pas à programm qu'il fo le s mais à file !!!

Merci

et puis CreateFile ?? ça existe ???

Non, voilà pourquoi une réponse me serait utile.

C'est du Script et, apparemment, il termine les noms de fichier par un "\"

Car je fais principalement du VBScript, beaucoup plus que du VB

Bon, sinon, y'a personne qui peut aider ? Dans la FAQ, il parle de tout, sauf création d'un fichier.

**jmfmarques** · 15/04/2006, 16h24

1) et bis repetita : Je ne crois pas que, même en script un chemin de fichier se termine par \

2)
http://www.script-info.net/jsvbs/msscript/misc/sgworkingwithfiles.php

**Jihnn** · 15/04/2006, 16h28

Je voulais principalement quoter "C'est du script"

Ensuite...

Code :

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

1
2
3
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("C:\Blabla", True)

Ceci va créer le fichier ? Ou il faut que je fasse quelque chose d'autre ?

**SfJ5Rpw8** · 15/04/2006, 16h31

tiens ...:

Code :

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

1
2
3
4
5
6
7
Sub CreateAfile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
   MyFile.WriteLine("Ceci est un test.")
   MyFile.Close
End Sub