03. april 2007 - 07:12Der er
2 kommentarer og 1 løsning
Tælle filer mm
Hej jeg har en fil med en masse kundenumre xxxx i kolonne B Det er ikke kun mig der vedligeholder dette ark. For hvert kundenummer er der en xxxxv.xls. De ligger alle i samme mappe. Også det det store ark.
På det store ark med alle kundenumrene er der en knap der gennemgår listen og opretter nye filer(via skabelon) hvis der er kommet nye kundenumre til. Men da det ikke kun er mig der vedligeholder kan jeg ikke se om der er kommet nye kunder til. Kan man få en pop op eller en markering i en kolonne hvor der står hvor mange filer der er oprettet og for hvilke kunder?
Lidt rodet beskrevet men spørg endelig hvis jeg skal uddybe. LN
Med version 7 af TeamShare tager Lector næste skridt og bygger en platform for AI-agenter, der i højere grad kan følge medarbejderen gennem hele arbejdsprocessen.
Rem optælling af Vfiler Rem =================== Const vSti = "C:\instruktioner\version\" Sub knap() optælFiler End Sub Private Sub optælFiler() Dim fs, f, f1, fc, s Dim spec As String, antal, knr
antal = 0 spec = ""
Rem Søg efter versions-fil Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(vSti) Set fc = f.Files For Each f1 In fc If LCase(f1.Name) <> "skabelon.xlt" Then antal = antal + 1 knr = Left(f1.Name, 4) spec = spec + knr + Chr(9) End If Next
spec = spec + vbCr + vbCr + "Antal filer: " + CStr(antal) MsgBox (spec) End Sub
Du har ikke fået et [svar] endnu - men nu får du et.....
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.
