Copie d'un fichier sans en connaitre la lettre du lecteur source (HELP HELP HELPRésolu

Question

Bonjour,

Mon appli est bientot fini 
Cependant jai un gros soucis 
Le fichier a copier se situe sur un lecteur dont n'ai pas la lettre 
jai eu bo ecrir toutes les commandes de lignes possible et imaginable il en retourne toujours que ce n'est pas correct 

Mon projet est a rendre ce soir au plus tard demain matin 

un autre probleme commet mettre en con cordance une progress bar et un fichier en train de se copier 

Parceque jen ai un de 7 k pas de pb mais un autre de 63 m qui fini de se charg&#233; quand la progress bar se termine se qui fait un ecran tout blc et donne limpression dun bug 

Donc pour reca: copier coller de 2 dossier d'un lecteur amovible dont on ne connai pas la lettre a une destination connu 

et inversement en 2eme etape on connai le chemin source mais pas destination 

parceque la je menfonce dans des lignes de codes qui ne servent structement 

Merci a toutes ames charitables

PCPT · Accepted Answer

oulahhhhhhh bon, le temps que tu répondes, tu pourra déjà essayer comme çà. c'est pas gagné Dim ORIGINAL_TIME As Date Dim SECONDS_TO_WAIT As String ' ' Private Sub cmd_ANNULER_Click() ' !!!!!!!! Timer1.Enabled = False ProgressBar1.Value = 0 ' !!!!!!! FRM_PATIENTEZ.Hide FRM_TEST.Hide FRM_TEST_DD.Hide FRM_CONFIRMATION.Show End Sub ' ' Private Sub Timer1_Timer() Lbl_rep.Caption = "deb: " & App.Path & " fin" ' ########################################################################## ' ' ah ouai?!!! donc tu copies "Korrigan.ini" à chaque fois que ' tu rentres dans le timer?!! ... ' ' je relève même pas le reste! tout est faut ' ' ########################################################################## ' If ProgressBar1.Value < ProgressBar1.Max Then ' ProgressBar1.Value = ProgressBar1.Value + 5 ' FileCopy App.Path + "\KORRIGAN.INI", "C:\Windows\Korrigan.ini" 'FileCopy Origine, Destination ' ' If ProgressBar1.Value = 15 Then ' ProgressBar1.Value = ProgressBar1 + 5 ' FileCopy "c:\formation.zip", App.Path + "\formation.zip" ' ' If ProgressBar1.Value = 30 Then ' ProgressBar1.Value = ProgressBar1.Value + 10 'filecopy App.Path + "\grpc.db", "C:\Base_GR\Grpc.db" ' ' If ProgressBar1.Value = 45 Then ' ProgressBar1.Value = ProgressBar1.Value + 5 ' ' If ProgressBar1.Value = 60 Then ' ProgressBar1.Value = ProgressBar1.Value + 10 ' ' If ProgressBar1.Value = 75 Then ' ProgressBar1.Value = ProgressBar1.Value + 5 ' ' If ProgressBar.Value = 90 Then ' ProgressBar1.Value = ProgressBar1.Value + 10 ' ' If ProgressBar1.Value = 95 Then ' ProgressBar1.Value = ProgressBar1.Value + 5 ' ' If ProgressBar1.Value = ProgressBar1.Max Then ' Timer1.Enabled = False ' End If ' End If ' End If ' End If ' End If ' End If ' End If ' End If ' End If With ProgressBar1 Select Case .Value Case .Max ProgressBar1.Value = 0 SECONDS_TO_WAIT = "50" ORIGINAL_TIME = DateTime.Time FRM_PATIENTEZ.Hide FRM_FINAL.Show Timer1.Enabled = False 'eh hop, plus besoin du timer2 Exit Sub Case Else: .Value = .Value + 5 End Select Select Case .Value Case 5: FileCopy App.Path & "\KORRIGAN.INI", "C:\Windows\Korrigan.ini" Case 20: FileCopy "c:\formation.zip", App.Path & "\formation.zip" Case 35: .Value = .Value + 5: 'FileCopy App.Path & "\grpc.db", "C:\Base_GR\Grpc.db" ' ?????? Case 65: .Value = .Value + 5 Case 95: .Value = .Value + 5 'test pour toi. ne pas laisser Case Else: If (.Value Mod 5 <> 0) Then MsgBox "Interval de Timer1 INCORRECT !!!!!", vbCritical, "Timer Error": .Value = .Max End Select End With End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

acecel · Answer

Explique un peu plus. de quelle mani&#232;re ouvre tu le fichier? 
L'utilisateur choisi le fichier &#224; utiliser ou c'est d&#233;fini en dur. 
Pourquoi ne connait tu pas le lecteur sur lequel est le fichier?

(Si par exemple le fichier source est dans le m&#234;me r&#233;pertoire que ton appli, alors tu peut utiliser le App.Path .)

shaiinna · Answer

Merci de repondre si rapidement 

En faite le principe et de copier un fichier .INI, .Db et cr&#233;er un formation.zip 
ca ya pas de probeme un filecopy suffit 

les fichiers ce trouvent sur un disques amovibles (cl&#233; usb ou disquette zip)
Donc &#224; fortiori cela peut etre  b d e f g h i k ...

2eme pb pr fer des test jai inserer des lettre de lecteurs que je connaissai deja 
ca copie parfaitement seul hic les fichiers se copie  a la fin de la barre de progression ce qui donne limpression dun bug puisque le processus normal de .HIde et .show et ralentit par 63Mo de copier coller 

Jai essay&#233; pas mal de  chose  mais la je suis a bout de ressources 

Merci de prendre la peine dessayer de maider c sympas

acecel · Answer

En faite le principe et de copier un fichier .INI, .Db et cr&#233;er un formation.zip 
ca ya pas de probeme un filecopy suffit 

les fichiers ce trouvent sur un disques amovibles (cl&#233; usb ou disquette zip)
Donc &#224; fortiori cela peut etre  b d e f g h i k ...

> Soit tu utilise un contr&#244;le CommandDialog (.ShowSave) ?
   et tu choisis le dossier (utilise les .Flags pour afficher que les dossiers)
> Soit tu utilise un contr&#244;le DriveListBox ... ?
   et tu choisis le disque &#224; utiliser. (voir rajoute un DirListBox pour choisir le dossier)

2eme pb pr fer des test jai inserer des lettre de lecteurs que je connaissai deja 
ca copie parfaitement seul hic les fichiers se copie  a la fin de la barre de progression ce qui donne limpression dun bug puisque le processus normal de .HIde et .show et ralentit par 63Mo de copier coller 

> Utilise un DoEvents pour forcer le rafraichissement de ton contr&#244;le ?

Ps : si j'ai mal compris ton probl&#232;me, excuse moi mais je suis un peu crev&#233;

shaiinna · Answer

Oui excuses moi moi aussi lol 

Mais a quel moment je lutilise Doevents

PCPT · Answer

salut, voici une procédure pour tester tous les Disques, si tu ne dois pas laisser l'utilisateur le sélectionner seul.... Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" _ (ByVal pszPath As String) As Long ' ' Private Sub Form_Load() ' ton nom de fichier à trouver, ou répertoire complet + nom, sans la lettre "C:" Dim MyFile As String MyFile = "blabla.INI" Dim MyDrive As String MyDrive = "0" ' on va chercher de A à Z For i = 65 To 90 If CBool(PathFileExists( Chr (i) & ":" & MyFile)) Then MyDrive = Chr(i) Exit For End If Next i ' si MyDrive est différent de "0", c'est bon If MyDrive <> "0" Then MsgBox Chr(34) & MyFile & Chr(34) & " trouvé sur le disque " & _ Chr(34) & MyDrive & ":" & Chr(34), 32 Else MsgBox Chr(34) & MyFile & Chr(34) & " introuvable", 32 End If End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

shaiinna · Answer

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

C'est tres gentil 

Pcpt et aussi acecel 


Deavoir pri la peine de me repondre je pense que je laur&#233; fini aujourdhui cette apli Enfin lol 


Jen aur&#233; apri des choses en une semaine lol 


Je peux abus&#233; de votre compassion????



Pour le gros fichier de 63Mo 

avec la progress barre 

Jexplik le fichier .Db a copier fait 63Mo 
Et en faite la bar de progress avance et a la fin de son process la le ficheir grpc se charge se qui rend les fenetre toute blanche ki donne limpression dun bug sen est un dailleur puisque plus rien ne marche sauf si on attend une ou deux minute ca reapparait 

En gros comment mettre en coincidence une progressBAr et un gros fichier parceque pour les ko ca marche

PCPT · Answer

un petit morceau de code aiderait &#224; mieux voir ton erreur, m&#234;me s'il est certain que c'est un oubli de DoEvents (OS perd la main)

PCPT   [AFCK]

shaiinna · Answer

on men a deja parler d'ailleur mais je ne sais pas ou le mettre en faite voici le code 

Dim ORIGINAL_TIME As Date
Dim SECONDS_TO_WAIT As String


Private Sub cmd_ANNULER_Click()
FRM_PATIENTEZ.Hide
FRM_TEST.Hide
FRM_TEST_DD.Hide
FRM_CONFIRMATION.Show
End Sub


Private Sub Timer1_Timer()
Lbl_rep.Caption = "deb: " + App.Path + " fin"


If ProgressBar1.Value < ProgressBar1.Max Then
ProgressBar1.Value = ProgressBar1.Value + 5
FileCopy App.Path + "\KORRIGAN.INI", "C:\Windows\Korrigan.ini"
'FileCopy Origine, Destination
If ProgressBar1.Value = 15 Then
ProgressBar1.Value = ProgressBar1 + 5
FileCopy "c:\formation.zip", App.Path + "\formation.zip"
If ProgressBar1.Value = 30 Then
ProgressBar1.Value = ProgressBar1.Value + 10
'filecopy App.Path + "\grpc.db", "C:\Base_GR\Grpc.db"
If ProgressBar1.Value = 45 Then
ProgressBar1.Value = ProgressBar1.Value + 5
If ProgressBar1.Value = 60 Then
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 75 Then
ProgressBar1.Value = ProgressBar1.Value + 5
If ProgressBar.Value = 90 Then
ProgressBar1.Value = ProgressBar1.Value + 10
If ProgressBar1.Value = 95 Then
ProgressBar1.Value = ProgressBar1.Value + 5
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False



 


        End If
        End If
        End If
        End If
        End If
        End If
        End If
        End If
        End If
            
           
           End Sub
           
   


Private Sub Timer2_Timer()
    If ProgressBar1.Value = ProgressBar1.Max Then
       ProgressBar1.Value = 0
       SECONDS_TO_WAIT = "50"
       ORIGINAL_TIME = DateTime.Time
       FRM_PATIENTEZ.Hide
       FRM_FINAL.Show


End If


End Sub

PCPT · Answer

quels sont les intevalles de tes timers?
dit, tu pourrais pas aussi essayer de donner toutes les infos n&#233;cessaires? plut&#244;t que de forcer l'autre &#224; te les poser

on gagnerait tous du temps...
PCPT   [AFCK]

PCPT · Answer

dsl pour les fautes

et code :
Case 35:    .Value = .Value + 5':
  FileCopy App.Path & "\grpc.db", "C:\Base_GR\Grpc.db"

et le ' ?????? parce que tu ne dis pas si tu as toi-m&#234;me mis cette c&#244;te dans un but pr&#233;cis

ps : tu remarqueras que j'ai remplac&#233; tes + par des &

shaiinna · Answer

Excuses moi de mon manques de pertinence mais je suis plus habitu&#233;e a Delphi java c que VB

Cependant c bon le fichier se copie en meme temps que la barre de progression jte remercie

une question: sous XP est il possible sans manipulation de lutilisatuer daller grace a une ligne de commande, copier un fichier 
Je me pose la question car 
Sous un fichier zip&#233; avec le compresseur Windows tu as ex : H:\Formation.ZIP jusque la ok 
Mais ensuite en cliquant dessus tu n'as plus de chemin ex : H:\formation.zip
                  --> Grpc
                  --> Korrigan 

Moi en refaisant un FileCopy vers un dossier zip&#233; tout se passe bien cependant lorsque je veux louvrir il me met une erreur ou c 
le fichier et endommag&#233; ou autre ou il me dit dinserer le disque multi....jai oubli&#233; 

Donc je me pose la question de savoir si javais raison de pens&#233; quavec Xp yavai ocun pb pour copier coller a linterieur dun fichi&#233; Zip&#233; 

Ps: Soit indulgent lool je rentre dans le timer parceque javais tout essay&#233; lol je connais Vb depuis 1 semaine lol

shaiinna · Answer

oui jallais te le demand&#233; pk des & au lieu de + 

Pas grave pr les fautes tu me pardonnes moi pour le reste lol

PCPT · Answer

re,
dans l'ordre :
les fichier "zip par xp ou w2k" sont &#224; se repr&#233;senter (pour mieux comprendre) comme un emplacement virtuel....
c'est pas vraiment &#231;&#224;, mais &#231;&#224; va &#234;tre plus clair comme &#231;&#224;....
donc au moment ou tu ouvres ~le faux-zip~, dit toi qu'il est dans un emplacement non-inscriptible.
tu peux le supprimer compl&#232;tement, ou l'&#233;crire compl&#232;tement (selon les droits utilisateur), mais pas le modifier.

voil&#224; pourquoi "pas de chemin", et pourquoi "pas vraiment ouvrable" (il ouvre virtuellement un copie du contenu).
preuve en est, contrairement &#224; winzip ou winrar par exemple, qui peuvent faire le listing du contenu, un fichier compress&#233; par W2k+ n&#233;cessite
la place de d&#233;compression sur le Dur rien que pour le listing.

indulgent.. mouaip, c'est pas mon projet, m'en fiche un peu^^

& et pas +
+ &#233;tait pour VB4 (et 5). il est encore tol&#233;r&#233; dans VB6, mais est souvent source d'ennuis, notamment lors des concan&#233;nations multi-types.
donc autant prendre tout de suite les bonnes habitudes ;)

bon, beh si tout fonctionne, c'est cool...
pense &#224; valider la ou les r&#233;ponses pour ceux qui reliront le Topic.

@+ & bonne continuation
PCPT    [AFCK]

shaiinna · Answer

oui jmen doute que tu tenfous loool 

Donc l'histoir de creation dun ZIP copier coller dedans c nimporte quoi?

PCPT · Answer

c'est n'importe quoi de croire qu'un fichier compress&#233; par l'utilitaire de Windows peut &#234;tre modifi&#233; sans &#234;tre d&#233;compress&#233;.

shaiinna · Answer

Oui bon bah chui dans la merde jcroyais avoir fini cte truc ... javais crer un decompresseur mais il ne le veulent pas lutilisateur de dois 
rien voir paraitre

PCPT · Answer

tapes "Zlib", plusieurs sources traitent avec cette DLL, tu pourras alors d&#233;compresser le fichier o&#249; tu veux, le modifier, le recompresser, etc.. tout &#231;&#224; en transparence pour l'utilisateur, aucun message quelconque.

Zlib est FreeWare.
tu peux aussi (sinon) utiliser les DLL de WinZip, WinRar, WinAce, etc... mais la compression ET/OU la d&#233;compression n'est pas libre de droits.

++
PCPT   [AFCK]

Copie d'un fichier sans en connaitre la lettre du lecteur source (HELP HELP HELP

18 réponses

Discussions similaires