re : probleme de présence fichierRésolu

Question

J'ai cette ligne de commande :

If Not g_Fsys.FileExists("C:	estprog\ZIP_2005.06.2315_41_45.zip") Then
cette ligne sert a me dire si le fichier existe ou pas .
Or je veux remplacer ZIP_2005.06.2315_41_45 par * pour qu'il n'y est que la pr&#233;sence du zip qui soit d&#233;tecter . 
 J'ai essayer plusieur &#233;criture mais sa ne marche pas ou sa fait des erreurs de syntaxe .
Si quelqu'un a une id&#233;e ou si on peu me dire si c'est faisable ou pas &#231;a m'aiderait enorm&#233;ment .

cordialement php discover

Tilois · Accepted Answer

tu fais une boucle de parcours des fichiers dans ton repertoire. Si tu
trouves un fichier qui a une extension ZIP tu fais ce que tu as a
faire! Des boucles de parcours de fichiers on en trouve pas mal sur le
site. Tu n'as qu'&#224; chercher.

cs_drahcir · Answer

Salut,

en vb.net : 

Dim s 
As 
String
Dim s1 
As 
String

s = "C:	estprog\ZIP_2005.06.2315_41_45.zip"
s1 = s.Substring(s.LastIndexOf("") + 1, s.LastIndexOf(".") - s.LastIndexOf("") - 1)
s = s.Replace(s1, "*")


@+

phpdiscover · Answer

Merci j'ai trouver c'est plus long mais au moins sa marche 

Dim indice
indice = 0


For Each g_f1 In g_fc
        g_Nom_Fichier = g_f1.Path
        If Not (Err.Number = 0) Then Error ("Erreur de l'affectation g_f1.Path de la fonction DIFFERENTIEL")


        If UCase(Right(g_Nom_Fichier, 4)) = ".ZIP" Then
  
        g_Chemin_Zip = g_Nom_Fichier
        indice = 1
       else


  
 End If
Next


If indice <> 1 Then


     Error ("Le fichier zip n existe pas")
End If

En fait je v&#233;rifie les 4 derniers caract&#232;res de chaque fichier et si il y a un point zip son chemin est affect&#233; a g_Chemin_zip .


cordialement php discover

Re : probleme de présence fichier

3 réponses

Discussions similaires