Vérifier l'existence d'un dossierRésolu

Question

Bonjour, j'ai besoin de faire un script qui:
 -Vérifie l'existance d'un répertoire.
 -Si il existe, comparer la date d'un fichier et écraser si la date est inférieure.

J'ai réussi la deuxième partie. Le seul problème c'est que si le répertoire n'existe pas j'ai un message d'erreur. Si il n'existe pas j'aimerais ne pas vérifier la date du fichier.

Code:
Const OverwriteExisting = TRUE



Set objFSO = CreateObject("Scripting.FileSystemObject")



Set objLocalFile = objFSO.GetFile("C:	est	est.txt")
dtmLocalDate = objLocalFile.DateLastModified



Set objServerFile = objFSO.GetFile(
[file://\serveur\source 
\serveur\source
]
)
dtmServerDate = objServerFile.DateLastModified



If dtmLocalDate < dtmServerDate Then
    objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
End If


Merci

jrivet · Accepted Answer

Salut,

Regarde ce que tu as mis: DossierServeur = "[file://source/test/test.txt \]source	est	est.txt"
Et regarde ce que je te proposais: DossierServeur = "\Serveur\Source"

L'idee c'est que DossierServeur contienne le nom d'un répertoire. toi tu lui mets le nom d'un FICHIER 

@+,   Ju£i?n

cs_casy · Answer

If Dir(TonRepertoire,vbDirectory)<>"" Then 'Toncode Else MsgBox "Le répertoire n'existe pas" End If ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE #

Renfield · Answer

il existe la méthode FolderExists de ton objet FSO....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Renfield · Answer

Pas de Dir en vbs, Casy...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_casy · Answer

RRRRRRRRRRR

xcuzmi, moâ pas connaitre vbs et pas fait attention que vbs non plus, surtout

Dsl

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

cs_Patrin · Answer

En fait, si le répertoire n'existe pas, je ne veux pas de message. Si le répertoire n'est pas là "exit". Je suis un gars de réseau donc le vbscript est pour moi du chinois :) Est-ce que vous pouvez corriger mon code SVP?



Const OverwriteExisting = TRUE



Set objFSO = CreateObject("Scripting.FileSystemObject")



Set objLocalFile = objFSO.GetFile("C:	est	est.txt")
dtmLocalDate = objLocalFile.DateLastModified



Set objServerFile = objFSO.GetFile(
[file://\serveur\source	est.txt  
\serveur\source	est.txt


]
)
dtmServerDate = objServerFile.DateLastModified



If dtmLocalDate < dtmServerDate Then
    objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
End If

drikce06 · Answer

Const OverwriteExisting = TRUE



Set objFSO = CreateObject("Scripting.FileSystemObject")




If objFSO.FolderExists("C:	est	est.txt")=True Then
Set objLocalFile = objFSO.GetFile("C:	est	est.txt")
dtmLocalDate = objLocalFile.DateLastModified



Set objServerFile = objFSO.GetFile(
[file://serveur/source/test.txt 
\serveur\source	est.txt


]
)
dtmServerDate = objServerFile.DateLastModified



If dtmLocalDate < dtmServerDate Then
    objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting
End If


End If

 Drikce 06

drikce06 · Answer

Bonjour au fait!

 Drikce 06

jrivet · Answer

Salut,
>859126  Patrin: Pourquoi ne pas essayer ce que te propose  =2359 Renfield

Utilise la fonction .FolderExists  ne ton FileSystemObject
LE seul truc c'est qu il faut que le nom du fichier et le nom du répertoire soient dans des variables séparer

Soit: (pas teste)
Dim DossierServeur 
Dim Fichier 
Dim DossierLocal 

Const OverwriteExisting =  True 

Set objFSO =  CreateObject ("Scripting.FileSystemObject") 
Fichier  = "Test.txt" 
DossierLocal = "C:	est" 
DossierServeur = "\Serveur\Source" 
If objFSO.FolderExists(DossierServeur) And objFSO.FolderExists(DossierLocal) Then 
    Set objLocalFile = objFSO.GetFile(DossierLocal & Fichier) 
    dtmLocalDate = objLocalFile.DateLastModified 

    Set objServerFile = objFSO.GetFile(DossierServeur & Fichier) 
    dtmServerDate = objServerFile.DateLastModified 

    If dtmLocalDate < dtmServerDate Then 
        objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting 
    End If 
End If 

@+,   Ju£i?n

Renfield · Answer

If objFSO.FolderExists("C:	est	est.txt")=True Then

pas possible, test.txt ressemble a un fichier, et non a un dossier.
FolderExists ne fonctionnera surement pas, en ce cas... utilises alors la méthode FileExists

Renfield
Admin CodeS-SourceS- MVP Visual Basic

drikce06 · Answer

Ah oui! dsl! j'ai pas fait gaf, mais c'est sur que si tu donnes le chemin du fichier en dur autant utiliser FileExists comme le dit Renfiel!

 Drikce 06

cs_Patrin · Answer

Déjà, ça me semble un code plus logique que ce que j'avais fait :) Mais le problème c'est qu'il ne remplace pas le fichier... Mais il ne me retourne pas d'erreur. Merci pour l'aide!!! :) 



Dim DossierServeur 
Dim Fichier 
Dim DossierLocal 



Const OverwriteExisting = True 



Set objFSO = CreateObject("Scripting.FileSystemObject") 
Fichier = "test.txt" 
DossierLocal = "c:	est"
DossierServeur = "

[file://\source	est	est.txt \]

source	est	est.txt"
If objFSO.FolderExists(DossierServeur) And objFSO.FolderExists(DossierLocal) Then 
    Set objLocalFile = objFSO.GetFile(DossierLocal & Fichier) 
    dtmLocalDate = objLocalFile.DateLastModified 



    Set objServerFile = objFSO.GetFile(DossierServeur & Fichier) 
    dtmServerDate = objServerFile.DateLastModified 



    If dtmLocalDate < dtmServerDate Then 
        objFSO.CopyFile objServerFile.Path, objLocalFile.Path, OverwriteExisting 
    End If 
End If

cs_Patrin · Answer

J'ai fait une erreur de débutant... Merci pour l'aide!!ça m'a donné le goût d'en connaître plus sur VBS.

neo2k2 · Answer

Un up 2 ans après qui marche en VBS et VB6:

Dim stPath ' Nom du chemin d'acces au dossier
Dim stFolder 'Nom du dossier
Dim oFSO,oFl
Dim Ans1, Ans2

stPath = "C:"
stFolder = "mon_dossier"



Set oFSO = CreateObject("Scripting.FileSystemObject")
' si le dossier n'existe pas, on le crée
If Not oFSO.FolderExists(stPath & stFName) Then
  'Crée le repertoire
  Set oFld=oFSO.CreateFolder (stPath & stFName)
'Else ' sinon on fait autre chose
'  MsgBox "Le répertoire " & stPath & stFName & " existe."
End If

Vérifier l'existence d'un dossier

14 réponses

Votre réponse

Discussions similaires