Útil em inúmeras situações, quais?
- Quando desejar criar relatórios dentro de pastas.- Quando precisar gravar dados em pastas criadas anteriormente e precise ajustar o nome do período.- Quando desejar gravar relatórios dentro de pastas com os respectivos nomes dos agrupamentos.- Etc...
Use o código abaixo e se divirta:
Function Repl_Char_FName (ByVal Path As String, ByVal OldChr As String, ByVal NewChr As String)Dim FileName As String'Input Validation'Trailing backslash (\) is a mustIf Right(Path, 1) <> "\" Then Path = Path & "\"'Directory must exist and should not be empty.If Len(Dir(Path)) = 0 ThenLet Repl_Char_FName = "No files found."Exit Function'Old character and New character must not be empty or null strings.ElseIf Trim(OldChr) = "" And OldChr <> " " ThenLet Repl_Char_FName = "Invalid Old Character."Exit FunctionElseIf Trim(NewChr) = "" And NewChr <> " " ThenLet Repl_Char_FName = "Invalid New Character."Exit FunctionEnd IfLet FileName = Dir(Path & "*.*") 'Use *.xl* para Excel e *.doc para arquivos Word
Do While FileName <> ""Name Path & FileName As Path & Replace (FileName, OldChr, NewChr)Let FileName = DirLoopLet Repl_Char_FName = "Ok"End Function
Teste as funcionalidades:
Sub Samp_Use()Dim lResult As StringlResult = Replace_Filename_Character("C:\Bernardes\Test", " ", "_")Debug.Print lResult 'Returns OklResult = Replace_Filename_Character("C:\Bernardes\Test", " ", "_")Debug.Print lResult 'Returns Ok though no spaces in filenames nowlResult = Replace_Filename_Character("C:\Bernardes\Test\", "", "_")Debug.Print lResult 'Returns 'Invalid Old Character'lResult = Replace_Filename_Character("C:\Bernardes\Test01", " ", "_")Debug.Print lResult 'Returns 'No files found' as invalid directory provided.End Sub
Nenhum comentário:
Postar um comentário