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