🚀 go-pugleaf

In VB6 kan je dit doen met de MkDir() functie.

Om de "mijn documenten" folder te krijgen, zal je gebruik moeten maken van
een API-functie.
Met onderstaande code lukt het alleszins in VB6, ik heb er wat commentaar
bijgezet. Laat je vooral niet afschrikken door de API functies, die zal je
gaandeweg wel leren kennen. Ik heb ook de code erbij gezet om de net
aangemaakte folder ook te openen via Windows Explorer.
Om te testen maak je een nieuwe form en zet je er een textbox en een
commandbutton op.
Succes nog met je programma!



Option Explicit

Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias
"SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal lpszPath As String,
ByVal nFolder As Integer, ByVal fCreate As Boolean) As Boolean
'API call om speciale folders op te halen
Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
'API call om de aangemaakte folder te openen

Private Const CSF_PERSONAL = &H5 'Constante voor Mijn Documenten

Private Const iMaxPathLength As Integer = 512 'Maximale lengte voor de
buffer

Public Function GetMyDocumentsFolder() As String
   Dim lReturn As Long 'Return value van de functie
   Dim sBuf As String  'Buffer

   sBuf = Space(iMaxPathLength) 'Buffer opvullen met spaties

   lReturn = SHGetSpecialFolderPath(0, sBuf, CSF_PERSONAL, False) 'Aanroep
van de API-functie
   lReturn = InStr(sBuf, Chr$(0)) 'Einde van de foldernaam is karakter 0,
dus alles tot aan karakter 0 is de foldernaam
   If lReturn > 1 Then
      GetMyDocumentsFolder = Left$(sBuf, lReturn - 1) 'Succesvol
   Else
      GetMyDocumentsFolder = "" 'Mislukt
   End If

End Function

Private Sub Command1_Click()
On Error GoTo Command1_Click_Error
    Dim sFolder As String
    sFolder = GetMyDocumentsFolder & "\" & Text1.Text
    MkDir sFolder 'MkDir is de VB-functie om een folder aan te maken
    'Openen van de net aangemaakte folder
    ShellExecute Me.hwnd, "open", sFolder, vbNullString, vbNullString, 1
    Exit Sub
Command1_Click_Error:
    MsgBox "Fout bij aanmaken van de folder " & sFolder
End Sub






"Lumus" <spam@belgacom.net> schreef in bericht
news:403f0637$0$13866$ba620e4c@news.skynet.be...
> Mijn kennis van VB is niet zo groot.
> Een bestand lezen en schrijven lukt me wel, een map aanmaken niet.
> Kan iemand mij op weg zetten ?
>
> Het is dus de bedoeling van in mijn documenten een map aan te maken
> waarvan de naam door de gebruiker wordt opgegeven in de
> VB-toepassing.
>
> Alvast bedankt.
>
>

Bedankt voor de spoedige en deskundige hulp.
Zal enig studiewerk vergen, maar u hebt mij op weg gezet.
API is mij compleet onbekend, in mijn oude taal zal dit wel een
'module' zijn.  Zal mij wel lukken.

Met vriendelijke groeten.


"Billyke" <gert.verstappen@gmx.net> schreef in bericht
news:c1n31b$l6j$1@reader10.wxs.nl...
> In VB6 kan je dit doen met de MkDir() functie.
>
> Om de "mijn documenten" folder te krijgen, zal je gebruik moeten maken van
> een API-functie.
> Met onderstaande code lukt het alleszins in VB6, ik heb er wat commentaar
> bijgezet. Laat je vooral niet afschrikken door de API functies, die zal je
> gaandeweg wel leren kennen. Ik heb ook de code erbij gezet om de net
> aangemaakte folder ook te openen via Windows Explorer.
> Om te testen maak je een nieuwe form en zet je er een textbox en een
> commandbutton op.
> Succes nog met je programma!
>
>
>
> Option Explicit
>
> Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias
> "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal lpszPath As String,
> ByVal nFolder As Integer, ByVal fCreate As Boolean) As Boolean
> 'API call om speciale folders op te halen
> Private Declare Function ShellExecute Lib "shell32.dll" Alias
> "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
> lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String,
> ByVal nShowCmd As Long) As Long
> 'API call om de aangemaakte folder te openen
>
> Private Const CSF_PERSONAL = &H5 'Constante voor Mijn Documenten
>
> Private Const iMaxPathLength As Integer = 512 'Maximale lengte voor de
> buffer
>
> Public Function GetMyDocumentsFolder() As String
>    Dim lReturn As Long 'Return value van de functie
>    Dim sBuf As String  'Buffer
>
>    sBuf = Space(iMaxPathLength) 'Buffer opvullen met spaties
>
>    lReturn = SHGetSpecialFolderPath(0, sBuf, CSF_PERSONAL, False) 'Aanroep
> van de API-functie
>    lReturn = InStr(sBuf, Chr$(0)) 'Einde van de foldernaam is karakter 0,
> dus alles tot aan karakter 0 is de foldernaam
>    If lReturn > 1 Then
>       GetMyDocumentsFolder = Left$(sBuf, lReturn - 1) 'Succesvol
>    Else
>       GetMyDocumentsFolder = "" 'Mislukt
>    End If
>
> End Function
>
> Private Sub Command1_Click()
> On Error GoTo Command1_Click_Error
>     Dim sFolder As String
>     sFolder = GetMyDocumentsFolder & "\" & Text1.Text
>     MkDir sFolder 'MkDir is de VB-functie om een folder aan te maken
>     'Openen van de net aangemaakte folder
>     ShellExecute Me.hwnd, "open", sFolder, vbNullString, vbNullString, 1
>     Exit Sub
> Command1_Click_Error:
>     MsgBox "Fout bij aanmaken van de folder " & sFolder
> End Sub
>
>
>
>
>
>
> "Lumus" <spam@belgacom.net> schreef in bericht
> news:403f0637$0$13866$ba620e4c@news.skynet.be...
> > Mijn kennis van VB is niet zo groot.
> > Een bestand lezen en schrijven lukt me wel, een map aanmaken niet.
> > Kan iemand mij op weg zetten ?
> >
> > Het is dus de bedoeling van in mijn documenten een map aan te maken
> > waarvan de naam door de gebruiker wordt opgegeven in de
> > VB-toepassing.
> >
> > Alvast bedankt.
> >
> >
>
>

API is niet gelijk aan een VB-module.
API staat voor Application Programming Interface. Hiermee roep je functies
aan van Windows zelf (dus lekker snel en krachtig)...
Voor meer info over API's kan je terecht op
http://www.mentalis.org/index2.shtml

Als je een full install van VB gedaan hebt, dan heb je onder Tools normaal
gezien ook de API Text Viewer staan.

"Lumus" <spam@belgacom.net> schreef in bericht
news:403f117a$0$316$ba620e4c@news.skynet.be...
> Bedankt voor de spoedige en deskundige hulp.
> Zal enig studiewerk vergen, maar u hebt mij op weg gezet.
> API is mij compleet onbekend, in mijn oude taal zal dit wel een
> 'module' zijn.  Zal mij wel lukken.
>
> Met vriendelijke groeten.
>
>
> "Billyke" <gert.verstappen@gmx.net> schreef in bericht
> news:c1n31b$l6j$1@reader10.wxs.nl...
> > In VB6 kan je dit doen met de MkDir() functie.
> >
> > Om de "mijn documenten" folder te krijgen, zal je gebruik moeten maken
van
> > een API-functie.
> > Met onderstaande code lukt het alleszins in VB6, ik heb er wat
commentaar
> > bijgezet. Laat je vooral niet afschrikken door de API functies, die zal
je
> > gaandeweg wel leren kennen. Ik heb ook de code erbij gezet om de net
> > aangemaakte folder ook te openen via Windows Explorer.
> > Om te testen maak je een nieuwe form en zet je er een textbox en een
> > commandbutton op.
> > Succes nog met je programma!
> >
> >
> >
> > Option Explicit
> >
> > Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias
> > "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal lpszPath As String,
> > ByVal nFolder As Integer, ByVal fCreate As Boolean) As Boolean
> > 'API call om speciale folders op te halen
> > Private Declare Function ShellExecute Lib "shell32.dll" Alias
> > "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
> > lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
> String,
> > ByVal nShowCmd As Long) As Long
> > 'API call om de aangemaakte folder te openen
> >
> > Private Const CSF_PERSONAL = &H5 'Constante voor Mijn Documenten
> >
> > Private Const iMaxPathLength As Integer = 512 'Maximale lengte voor de
> > buffer
> >
> > Public Function GetMyDocumentsFolder() As String
> >    Dim lReturn As Long 'Return value van de functie
> >    Dim sBuf As String  'Buffer
> >
> >    sBuf = Space(iMaxPathLength) 'Buffer opvullen met spaties
> >
> >    lReturn = SHGetSpecialFolderPath(0, sBuf, CSF_PERSONAL, False)
'Aanroep
> > van de API-functie
> >    lReturn = InStr(sBuf, Chr$(0)) 'Einde van de foldernaam is karakter
0,
> > dus alles tot aan karakter 0 is de foldernaam
> >    If lReturn > 1 Then
> >       GetMyDocumentsFolder = Left$(sBuf, lReturn - 1) 'Succesvol
> >    Else
> >       GetMyDocumentsFolder = "" 'Mislukt
> >    End If
> >
> > End Function
> >
> > Private Sub Command1_Click()
> > On Error GoTo Command1_Click_Error
> >     Dim sFolder As String
> >     sFolder = GetMyDocumentsFolder & "\" & Text1.Text
> >     MkDir sFolder 'MkDir is de VB-functie om een folder aan te maken
> >     'Openen van de net aangemaakte folder
> >     ShellExecute Me.hwnd, "open", sFolder, vbNullString, vbNullString, 1
> >     Exit Sub
> > Command1_Click_Error:
> >     MsgBox "Fout bij aanmaken van de folder " & sFolder
> > End Sub
> >
> >
> >
> >
> >
> >
> > "Lumus" <spam@belgacom.net> schreef in bericht
> > news:403f0637$0$13866$ba620e4c@news.skynet.be...
> > > Mijn kennis van VB is niet zo groot.
> > > Een bestand lezen en schrijven lukt me wel, een map aanmaken niet.
> > > Kan iemand mij op weg zetten ?
> > >
> > > Het is dus de bedoeling van in mijn documenten een map aan te maken
> > > waarvan de naam door de gebruiker wordt opgegeven in de
> > > VB-toepassing.
> > >
> > > Alvast bedankt.
> > >
> > >
> >
> >
>
>