[VB6] CreateFolder / CreateFile

Version imprimable

Bonjour,

Voici un bout de mon code :

Code:

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

15/04/2006, 01h49
SfJ5Rpw8

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 ???
15/04/2006, 07h47
jmfmarques

C'est du Script et, apparemment, il termine les noms de fichier par un "\" :lol:
Comme s'il s'agissait de répertoires :!: :lol:
15/04/2006, 16h18
Jihnn

Citation:

et d'ou il sort se code ???

De mon programme

Citation:

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

Merci

Citation:

et puis CreateFile ?? ça existe ???

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

Citation:

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.
15/04/2006, 16h24
jmfmarques

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
15/04/2006, 16h28
Jihnn
Je voulais principalement quoter "C'est du script"

Ensuite...
Code:

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 ?

tiens ...:

Code:

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

voir ici

15/04/2006, 16h33
Jihnn

Merci bien...
15/04/2006, 16h35
jmfmarques

Citation:

Je voulais principalement quoter

depuis quand quote-on avec un \ dans la chaine du chemin d'un fichier (avant le ") ?
un bout de ton code :

Citation:

FSO.CreateFile "C:\Programs File\Blizzard CDKey Manager\CDKey.ini\"