J'ai lu dans www.self-access.com/access/ l'article concernant scripting
runtime mais je n'arrive pas.
Mon problème, dans un folder déterminé, j'ai un fichier dont je suis ceratin
de l'extension .txt mais je ne connais pas le nom. Je voudrais renommer ce
fichier en test.txt.
Qui peut m'aider ?
Merci d'avance.
JL
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"jlleybaert" | J'ai lu dans www.self-access.com/access/ l'article concernant scripting | runtime mais je n'arrive pas. | | Mon problème, dans un folder déterminé, j'ai un fichier dont je suis ceratin | de l'extension .txt mais je ne connais pas le nom. Je voudrais renommer ce | fichier en test.txt.
Tu peux utiliser cette fonction :
Function RenameText(sFolder As String, sNewName As String) 'Usage: 'RenameText "E:Répertoire", "Test"
Dim sOld As String, sNew As String
With Application.FileSearch .LookIn = sFolder .FileName = "*.txt"
If .Execute > 0 Then sOld = .FoundFiles(1) sNew = Left(sOld, InStrRev(sOld, "")) & sNewName & ".txt" Name sOld As sNew Else MsgBox "Fichier absent" End If End With End Function
"jlleybaert"
| J'ai lu dans www.self-access.com/access/ l'article concernant scripting
| runtime mais je n'arrive pas.
|
| Mon problème, dans un folder déterminé, j'ai un fichier dont je suis ceratin
| de l'extension .txt mais je ne connais pas le nom. Je voudrais renommer ce
| fichier en test.txt.
Tu peux utiliser cette fonction :
Function RenameText(sFolder As String, sNewName As String)
'Usage:
'RenameText "E:Répertoire", "Test"
Dim sOld As String, sNew As String
With Application.FileSearch
.LookIn = sFolder
.FileName = "*.txt"
If .Execute > 0 Then
sOld = .FoundFiles(1)
sNew = Left(sOld, InStrRev(sOld, "")) & sNewName & ".txt"
Name sOld As sNew
Else
MsgBox "Fichier absent"
End If
End With
End Function
"jlleybaert" | J'ai lu dans www.self-access.com/access/ l'article concernant scripting | runtime mais je n'arrive pas. | | Mon problème, dans un folder déterminé, j'ai un fichier dont je suis ceratin | de l'extension .txt mais je ne connais pas le nom. Je voudrais renommer ce | fichier en test.txt.
Tu peux utiliser cette fonction :
Function RenameText(sFolder As String, sNewName As String) 'Usage: 'RenameText "E:Répertoire", "Test"
Dim sOld As String, sNew As String
With Application.FileSearch .LookIn = sFolder .FileName = "*.txt"
If .Execute > 0 Then sOld = .FoundFiles(1) sNew = Left(sOld, InStrRev(sOld, "")) & sNewName & ".txt" Name sOld As sNew Else MsgBox "Fichier absent" End If End With End Function
