Variable dans chemin d'accès
bov13
Messages postés
3
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
8 septembre 2006
-
7 sept. 2006 à 12:37
bov13 Messages postés 3 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 8 septembre 2006 - 8 sept. 2006 à 09:50
bov13 Messages postés 3 Date d'inscription vendredi 4 février 2005 Statut Membre Dernière intervention 8 septembre 2006 - 8 sept. 2006 à 09:50
A voir également:
- Variable dans chemin d'accès
- L'accès au chemin d'accès est refusé - Forum ASP / ASP.NET
- Directory.GetFiles et accès refusé ✓ - Forum VB.NET
- Accès refusé IOException ✓ - Forum C# / .NET
- Variable objet ou variable de bloc with non définie - Forum Visual Basic
- Copie de fichier -- accès refusé en VB.NET ✓ - Forum VB.NET
3 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
25
7 sept. 2006 à 13:21
7 sept. 2006 à 13:21
Salut,
Et hop :
Dim nomUtilisateur As String
Dim dossierRacine As String
nomUtilisateur = "bov13"
dossierRacine = "C:\Program Files"
If Dir(
dossierRacine & nomUtilisateur , vbDirectory) = "" Then
MkDir dossierRacine & nomUtilisateur
Else
MsgBox "Le dossier existe déjà" , vbCritical
End If
Le répertoire "C:\Program Files\bov13" sera créé
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Et hop :
Dim nomUtilisateur As String
Dim dossierRacine As String
nomUtilisateur = "bov13"
dossierRacine = "C:\Program Files"
If Dir(
dossierRacine & nomUtilisateur , vbDirectory) = "" Then
MkDir dossierRacine & nomUtilisateur
Else
MsgBox "Le dossier existe déjà" , vbCritical
End If
Le répertoire "C:\Program Files\bov13" sera créé
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
7 sept. 2006 à 22:31
7 sept. 2006 à 22:31
Bonsoir,
Ce qui donne en vbs:
Option Explicit
Dim wRepSrce1, wRepDest1
wRepSrce1 = "c:\CSSI\Ales"
wRepDest1 = "c:\Archive-Ales"
Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then
Set f = fso.CreateFolder(wRepDest1)
msgBox "Création du dossier "&f&" effectuée.",vbInformation
Else
msgBox "Attention:"&vbCrLf&"Le répertoire "&wRepDest1&" existe déjà."&vbCrLf&_
"Les nouveaux fichiers ne sont donc pas archivés",vbCritical
End If
Set fso = Nothing
jean-marc
Ce qui donne en vbs:
Option Explicit
Dim wRepSrce1, wRepDest1
wRepSrce1 = "c:\CSSI\Ales"
wRepDest1 = "c:\Archive-Ales"
Dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(wRepDest1) Then
Set f = fso.CreateFolder(wRepDest1)
msgBox "Création du dossier "&f&" effectuée.",vbInformation
Else
msgBox "Attention:"&vbCrLf&"Le répertoire "&wRepDest1&" existe déjà."&vbCrLf&_
"Les nouveaux fichiers ne sont donc pas archivés",vbCritical
End If
Set fso = Nothing
jean-marc
bov13
Messages postés
3
Date d'inscription
vendredi 4 février 2005
Statut
Membre
Dernière intervention
8 septembre 2006
8 sept. 2006 à 09:50
8 sept. 2006 à 09:50
Merci bien!
Autre petite question, je realise une recherche de fichier par extension, en l'occurence, des fichiers .doc. Ceci fonctionne mais j'aimerai récuperer les résultats de cette recherche pour copier ces fichiers dans un autre répertoire.
Voici le code :
'Rechercher les fichiers
msgbox "Recherche de documents Word"
strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _("SELECT * FROM CIM_DataFile WHERE Drive 'C:' AND Extension 'doc'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Avez-vous une idée?
Merci beaucoup
Autre petite question, je realise une recherche de fichier par extension, en l'occurence, des fichiers .doc. Ceci fonctionne mais j'aimerai récuperer les résultats de cette recherche pour copier ces fichiers dans un autre répertoire.
Voici le code :
'Rechercher les fichiers
msgbox "Recherche de documents Word"
strComputer = "."
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _("SELECT * FROM CIM_DataFile WHERE Drive 'C:' AND Extension 'doc'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Avez-vous une idée?
Merci beaucoup