Hej, en nybörjare vill veta hur man skall gå tillväga för att skapa mappar i under mappar och helt nya mappar????????...

Jag har en drivelistbox och en dirlistbox samt en textbox.
I textboxen vill jag kunna skriva det namn som jag önskar.

tex så här i DriveListBoxen är jag på enhet F:
i DirListboxen är jag på F:\tester
nu vill jag kunna med hjälp av TextBoxen skriva ett namn ( prov)
och få en ny mapp under f:\tester\prov

Tacksam för hjälp... LD

http://www.pellesoft.se/login/articles/default.asp?group=3
Kolla under "filhantering", där finns nog mycket att läsa

Fick inget svar på min fråga

MkDir "f:\tester\prov"

Var tvungen att testa har aldrig användt detta kommando.

Då kom jag under fund med att det inte funkar som jag trodde.

MKDir "C:\tester\prov" om nu "\tester" inte finns så måste jag först tillverka den annars får jag Error.

MKDir "C:\tester"
och sedan
MKDir "C:\tester\prov"

Herr Sven Si Modesti Perfecti Essemus

Tackar Tackar så mycket dalenn(LD)

Är detta rätt eller Fel ?????????????????......

MkDir (Drive2 \ Dir2 \ Text3.Text)

får bara runtime error 13

MkDir "Drive2\Dir2\" & Text3.Text

Förutsättning är att Dir2 redan finns.Sedan vad står det i Text3.Text ?
runtime error 13 är missmatch dvs fel datatyp.

MKDir skall ha en sträng som argument. ex

Dim PathName As String
PathName = "D:\TestMapp\" & Text3.Text 'i Text3 kan det stå Dalenn
MkDir PathName
Om nu inte TestMapp finns måste man tydligen köra en tvåstegsraket
MKDir "D:\TestMapp"
MkDir "D:\TestMapp\Dalenn" 'osv osv mysko att det är så.

Om du vill använda api-kommandon går det att använda detta.

<code>
Option Explicit
'In general section
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long

Private Sub Form_Load()
SHCreateDirectoryEx Me.hwnd, "c:\det\gar\att\gora\manga\kataloger\om\man\anvander\api\", ByVal 0&

End Sub
</code>

Hermans förslag skall du ta,får du använda ditt första API ?
Så här kan du göra.

<code>
Option Explicit
Private Declare Function SHCreateDirectoryEx Lib "shell32" _
Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, _
ByVal pszPath As String, ByVal psa As Any) As Long

Private Sub Command1_Click() 'Test exempel
SHCreateDirectoryEx Me.hwnd, "D:\tester\" & Text3.Text, ByVal 0&
End Sub
</code>

Tack för hjälpen..
En Fråga till bara
det står i strängen såhär
SHCreateDirectoryEx Me.hwnd, "D:\tester\" & Text3.Text, ByVal 0&
kan man byta ut "D:\tester" mot drive(enhet) och dirlistbox(subdirectory)
så att man kan få göra en ny mapp i tex enhet C:eller i enhet C:\tester\tester\text3.text


Jag vill kunna göra ungefär eller likadant som du skapar en ny mapp eller under mapp i utforskaren

Tack igen från en novis.....

Ja det kan du. Då måste Vi vaska fram textsträngen för dessa.
Detta exempel .Du har en Drive1 , en Dir1, en Text3 en Command1.

<code>
Option Explicit
Private Declare Function SHCreateDirectoryEx Lib "shell32" _
Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, _
ByVal pszPath As String, ByVal psa As Any) As Long

Dim MyPath As String

Private Sub Form_Load()
Drive1.Drive = "C:" 'Start drive
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
MyPath = Dir1.Path & "\" 'Dubbelklicka på mapp du vill ha
End Sub

Private Sub Command1_Click() 'Test
SHCreateDirectoryEx Me.hwnd, MyPath & Text3.Text, ByVal 0&
End Sub
</code>