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

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é 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

Explique un peu plus. de quelle manière ouvre tu le fichier?
L'utilisateur choisi le fichier à utiliser ou c'est dé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ême répertoire que ton appli, alors tu peut utiliser le App.Path .)

Merci de repondre si rapidement

En faite le principe et de copier un fichier .INI, .Db et créer un formation.zip
ca ya pas de probeme un filecopy suffit

les fichiers ce trouvent sur un disques amovibles (clé usb ou disquette zip)
Donc à 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é pas mal de  chose  mais la je suis a bout de ressources

Merci de prendre la peine dessayer de maider c sympas

En faite le principe et de copier un fichier .INI, .Db et créer un formation.zip
ca ya pas de probeme un filecopy suffit

les fichiers ce trouvent sur un disques amovibles (clé usb ou disquette zip)
Donc à fortiori cela peut etre  b d e f g h i k ...

> Soit tu utilise un contrôle CommandDialog (.ShowSave) ?
   et tu choisis le dossier (utilise les .Flags pour afficher que les dossiers)
> Soit tu utilise un contrôle DriveListBox ... ?
   et tu choisis le disque à 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ôle ?



Ps : si j'ai mal compris ton problème, excuse moi mais je suis un peu crevé

Oui excuses moi moi aussi lol

Mais a quel moment je lutilise Doevents

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]

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

C'est tres gentil

Pcpt et aussi acecel

Deavoir pri la peine de me repondre je pense que je lauré fini aujourdhui cette apli Enfin lol

Jen auré apri des choses en une semaine lol

Je peux abusé 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

un petit morceau de code aiderait à mieux voir ton erreur, même s'il est certain que c'est un oubli de DoEvents (OS perd la main)

PCPT   [AFCK]

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

quels sont les intevalles de tes timers?
dit, tu pourrais pas aussi essayer de donner toutes les infos nécessaires? plutôt que de forcer l'autre à te les poser

on gagnerait tous du temps...
PCPT   [AFCK]