title image


Smiley Re: VBA: Ordern suchen, ggf. neu anlegen
Nicht so super elegant ;-)





Sub OrdnerAnlegenWennNichtVorhanden()

Dim fs As Object

Dim i As Integer

On Error Resume Next

i = InputBox("Welche Kalenderwoche?")

Set fs = CreateObject("Scripting.FileSystemObject")

fs.CreateFolder ("C:\temp\KW" & i)



If Err.Number = 58 Then

MsgBox "Ordner existiert schon"

Else

fs.CreateFolder ("C:\temp\KW" & i)



End If

End Sub




Gruesse

Alexandra



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: