Hjælp til opretnming af bibliteker ønskes!

dos i Xp
Shell "cmd.exe /k Md "& Text1.Text, vbHide

Dos under win98
Shell "Md "& Text1.Text, vbHide

Uha... så har jeg et problem, for programmet komme nok til at køre på både, Win95, Win98, Win2K og XP!

Måske kan nedenstående gøres en smule pænere, men det virker da som du ønsker det. Tilbage er bare at putte det rigtige DirNavn ind i makroen.

Sub Makro()
Dim DirNavn As String, i As Integer, AntalDir As Integer, Split() As Integer
DirNavn = "c:\temp\Jeppe\kim"
If Right(DirNavn, 1) <> "\" Then
  DirNavn = DirNavn & "\"
End If
For i = 1 To Len(DirNavn)
  If Mid(DirNavn, i, 1) = "\" Then
    AntalDir = AntalDir + 1
    ReDim Preserve Split(1 To AntalDir)
    Split(AntalDir) = i
  End If
Next i
For i = 1 To AntalDir
  MakeDir Left(DirNavn, Split(i))
Next i
End Sub

Private Sub MakeDir(DirNavn As String)
If Dir(DirNavn, vbDirectory) = "" Then  'Ser om directory eksisterer i forvejen
  MkDir DirNavn
End If
End Sub

Mon ikke det skal være således.

Sub Makro()
Dim DirNavn As String, i As Integer, Temp As String, BIB As Variant
DirNavn = "C:\Test\Jepper\Kim"
If Dir(DirNavn, vbDirectory) = "" Then  'Ser om directory eksisterer i forvejen
  BIB = Split(DirNavn, "\")
  Temp = ""
For i = 0 To UBound(BIB)
  MakeDir Temp & BIB(i)
  Temp = Temp & BIB(i) & "\"
Next i
End If
End Sub

Den stopper lige her:

If Dir(DirNavn, vbDirectory) = "" Then

Og siger "Wrong number of arguments or invalid property assigment"

Det er "Dir" den marker!

Det kan man også - jeg var ikke klar over at der fandtes sådan en Split funktion. Men begge dele virker lige godt (så vidt jeg kan se...)

Hvilken makro har du sat til at køre? Du skal køre (min eller Kabbak's) "Makro" - husk også at kopiere makroen MakeDir fra mit svar - uden den er der ikke nogen af dem som virker.

Den bliver ved med at stoppe...

Hvad er DirNavn når du stopper? (Prøv at hold musen hen over DirNavn når den stopper, så skulle du gerne kunne se det.)

Så langt kommer jeg set ikke engang... den stopper allerede når jeg skriver

MakeDir...

Så skriver den "Argument not optional"

Du har misforstået noget :o)
Du skal køre makroen "Makro" og ændre 
DirNavn = "c:\temp\Jeppe\kim"
til det du ønsker.

Ok.. jeg har osse prøvet sådan her:
Under Makro
DirNavn = lblPath.Caption
...

Men så skriver den bare
"Wrong number of arguments or invalid property assigment"

If Dir(DirNavn, vbDirectory) = "" Then
Det er "Dir" den marker!

en der virker


Private Sub Command1_Click()
Dim DirNavn As String, i As Integer, Temp As String, BIB As Variant
  DirNavn = "C:\Test\Jepper\Kim"
  BIB = Split(DirNavn, "\")
  Temp = BIB(0) & "\"
  For i = 1 To UBound(BIB)
  Temp = Temp & BIB(i)
  If Dir(Temp, vbDirectory) = "" Then
    MkDir Temp
  End If
  Temp = Temp & "\"
  Next i
End Sub


PS. vi skriver i Visual Basic, det er forhåbentlig det du bruger

Ja... VB 6.0!!!

Kabbak:

Den bliver ved med at stoppe her:
If Dir(DirNavn, vbDirectory) = "" Then
Det er "Dir" den marker!

Med fejlkoden:
"Wrong number of arguments or invalid property assigment"

prøv at køre den sidste jeg sendte

Har du måske selv oprettet en variabel eller funktion med navnet "Dir" ??

Det er den jeg lige har prøvet...

Men den "dir" er der noget ivejen med....

Er det en Dim as ??? eller noget???

Eller mangler jeg en refference???

dir er en kommando i VB.

Jeg har testet i VB6.0, og der kører den.

Hvilke refferencer har du på?

Har lige prøvet den af en en HELT NY, helt ren VB program:

Private Sub Command1_Click()
Dim DirNavn As String, i As Integer, Temp As String, BIB As Variant, Dir As String
 
  DirNavn = Text1.Text
  BIB = Split(DirNavn, "\")
  Temp = BIB(0) & "\"
  For i = 1 To UBound(BIB)
  Temp = Temp & BIB(i)
  If Dir(Temp, vbDirectory) = "" Then
    MkDir Temp
  End If
  Temp = Temp & "\"
  Next i

End Sub

Det eneste der er, er en textbox og en knap.... der virker den heller ikke,,,,,

standard, jeg har ikke tilføjet speciel.

Har du Excel, den kan også køre der i et modul, jeg bruger Excell 2000

ingen ideer?

Har tid senere i aften

her er hele 2 måder at gøre det på: http://www.eksperten.dk/spm/423760

Fejlen er her

Dim DirNavn As String, i As Integer, Temp As String, BIB As Variant, Dir As String

den skal se sådan ud

Dim DirNavn As String, i As Integer, Temp As String, BIB As Variant

Private Sub Command1_Click()
Dim DirNavn As String, i As Integer, Temp As String, BIB As Variant
  If Mid(Text1.Text, 2, 1) <> ":" Then
  MsgBox " Du skal skrive drev betegnelsen også" _
  & vbLf & "f.eks. 'C:\ ' eller 'D:\ '"
  Exit Sub
  End If
  DirNavn = Text1.Text
  BIB = Split(DirNavn, "\")
  Temp = BIB(0) & "\"
  For i = 1 To UBound(BIB)
  Temp = Temp & BIB(i)
  If Dir(Temp, vbDirectory) = "" Then
    MkDir Temp
  End If
  Temp = Temp & "\"
  Next i
Text1.Text = " Udført"
End Sub

Alle ovenstående svar er stadig varianter over det jeg gav i første forsøg.... Hvis du stadig ikke kan få
Dir(Temp, vbDirectory)
til at virke, så vil ovenstående forsøg fortsat ikke virke.

Fedest!!!

Takker Kabbak

Slo >> det virkede ikke fordi jogge havde Dimmet Dir som string.

Man må ikke dimme en kommando

så smider jeg et svar.

kabbak >> Har jeg allerede skrevet tidligere (02/02-2004 15:25:12) - min pointe er sådan set bare at der ikke er tilføjet noget nyt til "debatten" siden vi startede i går. Hvis jogge havde kopieret vores første makroer, uden selv - af uransaglige grunde - at dim'e "Dir" samtidig med, ville det have virket uden al denne her ping-pong frem og tilbage.

Ja, det er korrekt

Slo >> jeg har lavet min så den tjekker hvert bibliotek, om det eksisterer i forvejen, det kan jo være at det først det sidste nævnt der skal oprettes.

Exactly does I :-) Jeg bruger to sub's - den ene "MakeDir" tjekker om et givent bib. eksisterer og opretter det hvis det ikke gør.
Den anden forskel der er, er brugen af VB's Split funktion, hvor jeg selv har "opfundet" en og du bruger den indbyggede.

Skal jeg dele pointene ud til er begge eller???

Slos kode er også rigtig, jeg kavde ikke lige nærlæst begge subs, de gør det samme begge vores koder.

I får 30 hver.... 1000 takker

Kan I sige mig hvilket der mangler her:

http://www.eksperten.dk/spm/460367

Så må jeg jo hellere også smide et svar....

SLO: Hop lige herhen:
http://www.eksperten.dk/spm/460394