29. april 2005 - 15:38Der er
2 kommentarer og 1 løsning
VBA FileSystemObject, Rename fil tillatelse til å overskrive
Etter mye feiling har jeg greid å gi alle filer med csv-endelse txt-endelse.
Dim fso As FileSystemObject Dim fsoFld As Folder Dim fsoFil As File
Set fso = CreateObject("Scripting.FileSystemObject") Set fsoFld = fso.GetFolder(sCsvFld) For Each fsoFil In fsoFld.Files If UCase(Right(fsoFil.Name, 3)) = "CSV" Then fsoFil.Name = Left(fsoFil.Name, Len(fsoFil.Name) - 3) & "txt" End If Next
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Men det er ett problem! Noen få ganger er det alt en fil med det samme navnet i mappen. Da får jeg feilmeldingen: File already exist. Hvordan kan jeg skrive over den gamle filen?
Har funnet en løsning, sjekker først om en fil med samme navn eksisterer. Hvis det gjør, blir den slettet. Så blir nanvet til den nye filen endret.
Dim sFilNavn As String
Set fso = CreateObject("Scripting.FileSystemObject") Set fsoFld = fso.GetFolder(sCsvFld)
For Each fsoFil In fsoFld.Files If UCase(Right(fsoFil.Name, 3)) = "CSV" Then sFilNavn = sCsvFld & Left(fsoFil.Name, Len(fsoFil.Name) - 3) & "txt" If fso.FileExists(sFilNavn) Then fso.DeleteFile (sFilNavn) End If fsoFil.Name = Left(fsoFil.Name, Len(fsoFil.Name) - 3) & "txt" End If Next
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
