OpenOffice.info

Code: Alles auswählen

Sub Main
	tc = ThisComponent.Sheets().getByName("Tabelle1")
	For i = 0 To 2000
		If tc.getCellByPosition(0,i).FormulaLocal <> "" Then
				MkDir "C:\Neu\" & tc.getCellByPosition(0,i).FormulaLocal
			Else
				Msgbox "Fertig"
				Exit Sub
		End If
	Next i	
End Sub

Code: Alles auswählen

CONST Mainpath$ = "C:\Neu\"

Function CREATE_DIRECTORY(A,B,C,D)
    bB = false
    bC = false
    bD = false
    IF IsNumeric(B) then
        if B > 0 then bB = true
    else
        if B <> "" then bB = true
    endif
    IF IsNumeric(C) then
        if C > 0 then bC = true
    else
        if C <> "" then bC = true
    endif
    IF IsNumeric(D) then
        if D > 0 then bD = true
    else
        if D <> "" then bD = true
    endif
    IF bB * bC * bD = true then
        IF fileexists(Mainpath + A) Then
            msgbox ("Das Verzeichnis "+Mainpath + A+" existiert bereits",16,"Fehler")
            CREATE_DIRECTORY =  CHR(10005)
        else
            MKDIR Mainpath + A
            CREATE_DIRECTORY = CHR(10003)            
        endif
    else 
        CREATE_DIRECTORY = ""
    endif
End function

Code: Alles auswählen

Sub Main
	tc = ThisComponent.Sheets().getByName("Tabelle1")
	For i = 0 To 2000
		If tc.getCellByPosition(0,i).FormulaLocal <> "" Then
				MkDir "C:\Neu\" & tc.getCellByPosition(0,i).String
			Else
				Msgbox "Fertig"
				Exit Sub
		End If
	Next i	
End Sub