[B] Enregistrement par défaut

**imparator_42** · 21/02/2008, 20h03

J'ai ceci

Code :

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

1
2
3
4
        Dim a As Object
dim  b As Object
        a = CreateObject("Scripting.FileSystemObject")
        b = a.createtextfile("Autorun.inf", True)

Je voudrais bien que mon fichier Autorun.inf se trouve sous le dossier d'user....
Par exemple : C:\Documents and Settings\imparator\temp\ ... mais si moi je mets ceci :

Code :

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

1
2
3
4
      Dim a As Object
Dim b As Object
        a = CreateObject("Scripting.FileSystemObject")
        b = a.createtextfile("C:\Documents and Settings\imparator\temp\Autorun.inf", True)

Ben si jamais quelqu'un utilise ce programme ben il aurait surement pas un dossier qui s'appelle comme ça ... et de toute façon on peut jamais être sur que tout le monde met son dossier de windows sous le disque dur C: ... etc...
Merci de m'aider

**Delbeke** · 21/02/2008, 20h09

Ajoutert un module au projet
Coller le code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" ( _
                    ByVal nBufferLength As Long, _
                    ByVal lpBuffer As String) As Long
Public Function GetTempDirectory() As String
  Static strTemp As String
  Dim lRet As Long
  Dim iposit As Integer
  If strTemp <> "" Then
    GetTempDirectory = strTemp
    Exit Function
  End If
  strTemp = String(260, 0)
  lRet = GetTempPath(Len(strTemp), strTemp)
  iposit = InStr(strTemp, Chr$(0))
  strTemp = Left(strTemp, iposit - 1)
  'modif, on prends dans le repertoire courant
  'strTemp = App.Path
  If Right(strTemp, 1) <> "\" Then
    strTemp = strTemp & "\"
  End If
  GetTempDirectory = strTemp
End Function

En passant, avec la déclaration

Code :

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

Dim a, b As Object

Seul la variable B désignara un objet, la variablr a sera un variant
Il faut utiliser

Code :

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

Dim a as objet, b as object

**ProgElecT** · 21/02/2008, 20h23

Salut

Code :

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

Label1 = Environ("USERPROFILE")' suffisant ?

Pour moi Label1 = "C:\Documents and Settings\francis"

**Delbeke** · 21/02/2008, 20h26

En effet, vu comme çà

Salut ProgElect

**ProgElecT** · 21/02/2008, 20h42

Salut Delbeke
J'ai tenté le coup, en me disant que cela t'avais echappé.

Il y a peut être mieux avec Environ("TEMP") ou Environ("TMP"), par contre je ne sais pas si le parametre TEMP ou TMP existe systematiquement (98, 2000, XP, VISTA ...)
Ce qui donnerait
b = a.createtextfile( Environ("TEMP")& "\Autorun.inf", True)
Ou la premiere proposition
b = a.createtextfile( Environ("USERPROFILE") & "\Temp\Autorun.inf", True)
Mais pour ce cas, existe t-il toujours un dossier "Temp" a la suite de Environ("USERPROFILE") ?

**imparator_42** · 21/02/2008, 20h45

Bon progElect j'ai essayer votre solution...
et ça me fait cet erreur... en me montrons :USERPROFILE

http://hebergement-images.voiloo.net...d945259328.jpg
....

Et j'ai mis ça :

Code :

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

1
2
3
4
5
6
7
Private Sub Command1_Click()
Dim a As Object
Dim b As Object
 
        a = CreateObject("Scripting.FileSystemObject")
        b = a.createtextfile("Environ("USERPROFILE")\Autorun.inf", True)
End Sub

Et pour dire c'est pareil pour TEMP

**SfJ5Rpw8** · 21/02/2008, 20h51

Envoyé par imparator_42

B...
Et j'ai mis ça : ...]

relis le code à progElect...

**imparator_42** · 21/02/2008, 20h53

Et avec votre module (Delbeke) comment je l'intègre dans mon form ? qu'est-ce que je mets à la place du chemin??
strTemp ???

**ucfoutu** · 21/02/2008, 20h54

Bonjour,

Je préfère moi aussi me servir de la librairie Kernel32 et le fais ainsi (un peu comme le fait Delbeke, donc) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Declare Function GetTempPathA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Function GetTempPath() As String
  Dim z0 As String, I As Integer
  I = GetTempPathA(0, ""): z0 = Space(I)
  Call GetTempPathA(I, z0)
  GetTempPath = Trim(z0)
End Function
 
Private Sub Command1_Click()
  MsgBox GetTempPath
End Sub

**imparator_42** · 21/02/2008, 20h57

Je peux vous dire quelque chose un plus familier?
En fait, je vais plus quitter ce forum

je me sens comme si j'étais dans une famille ou de ce genre de truc... vous êtes vraiment sympa... merci à tous...

**imparator_42** · 21/02/2008, 21h04

Merci à vous tous

J'ai réussi a obtenir ce que je voulais ...
et je peux donc utiliser la méthode ucfoutu et Delbeke mais celle ProgElect je n'ai pas réussi à le faire.. donc j'ai ceci ... j'ai intégré dans 1 module le code que delbeke a mis, .. :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Declare Function GetTempPathA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Private Function GetTempPath() As String
  Dim z0 As String, I As Integer
  I = GetTempPathA(0, ""): z0 = Space(I)
  Call GetTempPathA(I, z0)
  z0 = Trim(z0): GetTempPath = Trim(z0)
End Function
 
Private Sub Command1_Click()
  MsgBox GetTempPath
End Sub
 
 
Private Sub Form_Load()
Label1.Caption = GetTempDirectory
Label2.Caption = GetTempPath
End Sub

Les deux me montrent la même chose donc c'est bon ...
Vous êtes vraiment trooop fort

**ucfoutu** · 21/02/2008, 21h11

tu devrais également essayer la méthode de progelect, pour être complet, mais en corrigeant ainsi TA syntaxe :

b = a.createtextfile(Environ("USERPROFILE") & "\temp\Autorun.inf", True)

**ProgElecT** · 21/02/2008, 21h15

Le fait que c'est resolut pour toi est l'essentiel.
Ton post N°6

Code :

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

        b = a.createtextfile("Environ("USERPROFILE")\Autorun.inf", True)

Ce que je te proposai

Code :

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

b = a.createtextfile( Environ("USERPROFILE") & "\Temp\Autorun.inf", True)

mais je pense que la solution de ucfoutu (salut), est la plus sûr.

**DarkVader** · 21/02/2008, 21h20

Envoyé par ProgElecT

Salut Delbeke
.../...
Mais pour ce cas, existe t-il toujours un dossier "Temp" a la suite de Environ("USERPROFILE") ?

Oui, quitte à rester vide en cas de redirection mais du fait de ce dernier cas (redirection du temp) il est préférable d'utiliser cette variable (TEMP ou TMP)
du coup j'aurais plutôt utilisé

Code :

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

b = a.createtextfile( Environ("TEMP") & "\Autorun.inf", True)

**imparator_42** · 21/02/2008, 21h20

Enfait il y a juste un petit problème ....
ProgElecT a ce que je veux .. car
Les autres proposition m'emmène à C:\Documents and Settings\Imparator\Local Settings\Temp (je panse que vous avez confondu le dossier Temp de l'utilisateur et le dossier Temp qui se trouve directement sous le dossier de l'utilisateur : C:\Documents and Settings\Imparator\
.... )

Je panse que vous pourriez aussi avoir le dossier de l'utilisateur comme ceci : C:\Documents and Settings\Imparator\ (vue qu'on peut obtenir C:\Documents and Settings\Imparator\Local Settings\Temp\
Ou trompe-je..?

[B] Enregistrement par défaut

VB 6 et antérieur

Discussions similaires

Partager

Partager