chemin acces

Question

Bonjour,
ce code me sert à supprimer des fichiers de + de 10 jours et je n'arrive pas à donner le bon chemin d'acces dans strDrive et strPath suite au deplacement de ce dossier
merci de votre aide

Dim strComputer, strDrive, strPath, objWMIService, colFiles, dtDiffFile
          strComputer = "."      ' Ce PC.
          strDrive = "C:\Documents and Settings\mon pc\Bureau\Import"       ' Ce lecteur.
          strPath = "\scanner\"                     ' Ce dossier.
   
     Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "oot\cimv2")
     Set colFiles objWMIService.ExecQuery ("Select * From CIM_DataFile Where Drive '" & strDrive & "'" & "And Path = '" & strPath & "'")

     If colFiles.Count <> 0 Then
          For Each objFile in colFiles
               dtDiffFile = DateDiff("d", Now, fnConversionDate(objFile.LastModified))

               ' Si la date de dernière modification est supérieure ou égale à 2, alors on efface ces objets.
               If dtDiffFile =< -11 Then
                    objFile.Delete(objFile.Path & objFile.FileName)
               End If
          Next
     End If

     Set objWMIService = Nothing
     Set colFiles = Nothing

     ' Conversion du format de la date.
     Function fnConversionDate(strDateUTC)
          fnConversionDate = Mid(strDateUTC, 7, 2) & "/" & Mid(strDateUTC, 5, 2) & "/" & _
          Left(strDateUTC, 4) & " " & Mid(strDateUTC, 9, 2) & ":" & _
          Mid(strDateUTC, 11, 2) & ":" & Mid(strDateUTC, 13, 2) 
     End Function
WScript.Quit

lolokun · Answer

Bonjour,

Heuu oui et qu'attends-tu de nous?ce n'est pas clair, tu parles de suppression de fichiers, ensuite de déplacement de dossier...

Que cherches-tu à faire exactement? As-tu un message d'erreur?
Gaffe à la catégorie dans laquelle tu postes, tu es en vbs et non vb6, et merci de penser à utiliser la coloration syntaxique (3ème icône en partant de la droite)


L'expérience, c'est une connerie par jour, mais jamais la même..

pascal250 · Answer

Excuse je debute,
j'utilisais ce code pour suprimmer des vieux fichier,mais suite à un changement dans mon pc,j'ai du changer d'emplacement ce code et cela ne fonctionne plus l'ancien code etait

Dim strComputer, strDrive, strPath, objWMIService, colFiles, dtDiffFile 
strComputer = "." ' Ce PC. 
strDrive = "C:" ' Ce lecteur. 
strPath = "\scanner\" ' Ce dossier. 
(suite du code + haut)
]
et le nouveau chemin est C:\Documents and Settings\mon pc\Bureau\Import\scanner
j'espere avoir été clair et ne pas avoir reproduit la même connerie
merci d'avance

lolokun · Answer

Re,

je sais pas expérience que les noms longs ou avec espace posent souvent problème dans les scripts vbs.
Si tu renseignes le nom court de documents and settings (docume~1)
cela fonctionne t'il?

Sinon essaye comme ceci pour avoir le nom court:

Set fso      = WScript.CreateObject("Scripting.FileSystemObject")
set f = fso.GetFile(strdrive)
sstrdrive = f.shortpath 


L'expérience, c'est une connerie par jour, mais jamais la même..

pascal250 · Answer

Re
Ca fonctionne bien si le chemin est court ex:c:\scanner
sinon ca ne fonctionne pas même avec le nouveau code
Set fso = WScript.CreateObject("Scripting.FileSystemObject") 
set f = fso.GetFile(C:\Zelio-program\scanner) 
sstrdrive = f.shortpath 
merci

lolokun · Answer

set f = fso.GetFile("C:\Zelio-program\scanner") 
sstrdrive = f.shortpath 

Normalment dans sstrdrive tu dois avoir le nom court si tu l'affiches..

L'expérience, c'est une connerie par jour, mais jamais la même..

pascal250 · Answer

Peux tu me donner un exemple svp je suis debutant et un peu a la ramasse
merci

lolokun · Answer

Rebonjour,

strComputer = "." ' Ce PC. 
strDrive = "C:\Documents and Settings\mon pc\Bureau\Import" ' Ce lecteur. 
strPath = "\scanner" ' Ce dossier. 

Set fso = WScript.CreateObject("Scripting.FileSystemObject") 
set f = fso.GetFile(strdrive + strpath) 
sstrdrive = f.shortpath 
Msgbox sstrdrive 

Et là normalement cela devrait t'afficher le nom court de ton chemin

L'expérience, c'est une connerie par jour, mais jamais la même..

Chemin acces

7 réponses

Votre réponse

Discussions similaires