variable et texte dans un fichier !!

Question

Bonjour a tous, 
j'aimerai mettre dans un fichier du texte et deux variables , MAIS celle ci doivent etre entourée de " " dans le fichier ce qui, pour mon niveau, est impossible a réaliser.
Je m'explique dans mon probleme!

je fais un porg qui permet de choisir son messade d'ereur, son logo, son message, titre, etc .

Ensuite on a le choix entre l'enregistrer, ou l'éxécuter.
Si on l'enregistre, il va s'enregistrer sous 
alarme.vbs  et le code pour faire marcher ce script c'est
msgbox " titre ", vbokonly + vbcritical ( par ex.!) "message"

Now, je veux que a partir de mon vb, il enregistre titre et message qui sont eux des variables, et le probleme, c'est que;

pour mettre la variable, il faut l'entourer de " ", donc on ne peut pas la faire 2 fois !
j'espere que vous m'avez compris, et j'attends un dieu pour me sauver :)

codefalse

P.S:
Pourriez vous me dire comment je trouve le repertoire system de windows par ex.
Paque sur certaine machine, le repertoire de windows n'est pas windows, apr ex, pour aller au  fichier system, c:\ahah\system
qui pourrait me donner le path qui met directement  sous le repertoire ( qui est a l'origine ) "windows"  ??
merci!

Makabey · Answer

pour ton problème de guillemets, il te suffit d'utiliser une ligne du style:

Dim X as String
Dim Message as String

X = chr$(34) & Message & chr$(34)
où chr$(34) résultera en un guillemet à la sortie.

pour le répertoire système voici (vois aussi http://www.allapi.net) :

'This project needs a PictureBox, called 'Picture1'

'In general section
Private Declare Function DrawIcon Lib "user32" Alias "DrawIcon" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    Dim Path as String, strSave as string
    'Create a buffer string
    strSave = String(200, Chr$(0))
    'Get the windows directory and append '\REGEdit.exe' to it
    Path = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) + "\REGEdit.exe"
    'No pictures
    Picture1.Picture = LoadPicture()
    'Set graphicmode to 'persistent
    Picture1.AutoRedraw = True
    'Extract the icon from REGEdit
    return1& = ExtractIcon(Me.hWnd, Path, 2)
    'Draw the icon on the form
    return2& = DrawIcon(Picture1.hdc, 0, 0, return1&)
End Sub

codefalse · Answer

Merci bcp man !!!
CodeFalse

codefalse · Answer

Merci bcp man !!!
CodeFalse

BLUEBIBUBBLE · Answer

Cette fonction retourne le dossier système:
Environ("windir")
Retourne aussi d'autre variables d'environnement utiles... 
Environ("tmp") par example.

Variable et texte dans un fichier !!

4 réponses

Discussions similaires