• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opvolgendnummer per dag

  • Onderwerp starter Onderwerp starter HWV
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
Code: 
Sub M_snb()
  c00 = "G:\OF\"
  c01 = Dir(c00 & "*__")
   
  If c01 = "" Then
    CreateObject("scripting.filesystemobject").createtextfile(c00 & "0001__").write ""
  Else
    Name c00 & c01 As c00 & Format(Val(c01) + 1, "0000__")
  End If

  MsgBox Format(Val(c01), "0000")
End Sub

Deze heb ik helaas nog niet werkend gekregen.
MAr ik geloof gelijk dat het wel moet werken.
Ik zal morgen verdere testen ermee doen.
Maat dank voor de reactie

HWV
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan