J'ai besion d'aide.merci

Question

salut les chouchou, voila j'ai écris un code ou figure 2 chemins . aulieu d'écrire le chemins a chaque j'ai besoin d'avoir 2 string. ya quelque chose qui clohe et ça marche pas.
If ckhDel.Value 1 And fs.fileexists("\Samsung_france\Sys\Alicet\Sapt\up.txt") False And fs.fileexists("\Samsung_france\Sys\Alicet\Sapt\out.txt") = False Then

'verif si del_del existe dans rep SAP ET n'existe pas sur C:	emp alors copy
If fs.fileexists("\Samsung_france\Sys\Alicet\Sapt\Del_del.txt") = True And fs.fileexists("C:	emp\Del_del.txt") = False Then
fs.copyfile "\Samsung_france\Sys\Alicet\Sapt\Del_del.txt", "C:	emp"
MsgBox "DEL_DEL exporté", vbOKOnly

'sinon message d'erreur
ElseIf fs.fileexists("\Samsung_france\Sys\Alicet\Sapt\Del_del.txt") = False Then
MsgBox "Le fichier n'existe pas dans SAP!", vbCritical
ElseIf fs.fileexists("C:	emp\Del_del.txt") = True Then
MsgBox "Le fichier Del_del.txt existe déja dans c:	emp! Veuiller le traiter ou le supprimer", vbCritical

End If
End If
' message erreur si OUT/UP existeIf ckhDel.Value 1 And fs.fileexists("\Samsung_france\Sys\Alicet\Sapt\up.txt") True And fs.fileexists("\Samsung_france\Sys\Alicet\Sapt\out.txt") = True Then
MsgBox "En cours d'utilisation, Ressayer plutard", vbCritical
End If

EST cE que quelqu'1 peut m'aider a compresser ce code merci

jeff67120 · Answer

on peut me dire comment flasher mon f490v??????????????? merci d'avance

J'ai besion d'aide.merci

1 réponse

Discussions similaires