Changer le répertoire d'un fichier

Question

Bonjours, je cherche un code pour changer le répertoire d'un fichier.
Exemple : le fichier test.txt est sur le Bureau, sur ma form je voudrais en cliquant sur Command1 que le fichier test.txt se déplace dans Mes Documents.

cs_Exploreur · Answer

Salut,

Regarde du côté de : Name ou FileCopy

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Galain · Answer

Salut
Attention au fait que "Bureau" et "Mes Documents" sont des répertoires spéciaux réservés à l'utilisateur courant.Il existe des codes pour trouver les répertoires spéciaux d'un utilisateur.

GRENIER Alain[8D]

cs_JMO · Answer

Bonjour à tous,

L'exemple suivant illustre l'utilisation de la propriété SpecialFolders  :

Option Explicit
Call fnMoveFile("MonFichier.txt")

Private Function fnMoveFile(strFile)
Dim objFso, objShell 
Dim strDesktop, strMesDocuments 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell") 

strDesktop = objShell.SpecialFolders("Desktop")   ' ou objShell.SpecialFolders(4)
strMesDocuments = objShell.SpecialFolders(16)

If objFso.FileExists(strDesktop & "" & strFile) Then
   objFso.MoveFile strDesktop & "" & strFile, strMesDocuments & "" & strFile
End If

Set objFso = Nothing
Set objShell = Nothing
End Function

jean-marc

BruNews · Answer

Pourquoi charger la machine script par dessus celle de VB ???
L'appel direct de l'API MoveFile() fera 1 ligne sans besoin de FileExists

ciao...
BruNews, MVP VC++

cs_JMO · Answer

Bonjour à tous

Bonjour BruNews,
Pour ma part, ne possédant pas VB6, l'exemple que j'ai proposé, en vbs, correspond à la 
requête de "lenum1".
Je préfère utiliser "FileExists"
plutôt que "On Error Resume Next"  pour éviter le plantage,
en cas de non existence du fichier à déplacer.
Par contre, en visualisant les précédentes questions de "lenum1", dans 
"
        
        Messages dans le forum sur ce site :[forum.v2.aspx?MID=1083836 14
            message(s)]
        
        ", lui, possède VB, 
et donc je suppose (de par votre réponse) qu'il n'y pas nécessité d'utiliser fso et shell.
Par curiosité, pouvez-vous mettre un exemple en VB6.
Merci.

jean-marc

BruNews · Answer

ok = MoveFile(pExistingFileName, lpNewFileName)

Avec API, que soit VB6 ou autre ne change rien.
La gestion d'erreurs est très couteuse en cycles, j'insiste bien que c'est inutile avec l'API car n'en émet pas, suffit de regarder ce qu'elle retourne.
If MoveFile(pExistingFileName, lpNewFileName) Then MsgBox "REUSSI"

ciao...
BruNews, MVP VC++

Changer le répertoire d'un fichier

6 réponses

Votre réponse

Discussions similaires