fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

@darksider

Uploader:	Jojo
Datum/Zeit:	13.11.2011 15:24:40

Sub LNner(fromList() As String, toList() As String)

    Dim As Integer numIn = UBound(fromList) - LBound(fromList) + 1

    Dim As Integer numOut = UBound(toList) - LBound(toList) + 1

    Dim As Integer numEntries = IIf(numIn < numOut, numIn, numOut)



    For i As Integer = 0 To numEntries

            Shell("ln" & fromList(i + LBound(fromList)) & " " & toList(i + LBound(toList)))

    Next

End Sub

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.