creer dossier avec valeurs textbox

Version imprimable

09/10/2016, 18h03
kinny10

1 pièce(s) jointe(s)

creer dossier avec valeurs textbox

Bonjour a tous

je suis entrain de faire une gestion des adhérents pour une association
j'aimerais pour cela avoir la possibilité de créer un dossier en fonction des valeurs de 2 textbox
Dans le fichier que je joints les textbox nécessaires sont ceux du nom et prénom ( TNom et TPrenon)

En d'autre thermes en cliquant sur Menu puis sur Inscription je voudrais créer un fichier à un emplacement dans mon ordi dont le nom sera les valeurs du nom et du prénom

Salut, sans ouvrir ton fichier, bref qqch de basique à adapter à ton contexte.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long
 
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
 
Sub Tst()
Dim sDossier As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    CreationDossier sDossier
End Sub

09/10/2016, 21h06
clementmarcotte

Bonjour,

Si tu ne veux pas créer ton dossier sans utiliser l'API directement

Autre lien utile.

Re, sans APIs et les limitations du mkdir basique, il y en a une myriade.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
Private Function CreationDossier_02(ByVal sChemin As String) As Boolean
'   de frederic.sigonneau
Dim i As Integer, sTmp As String, Ar() As String
    If InStr(sChemin, ":") = 0 Then
        Ar = Split(CurDir & "\" & sChemin, "\")
    Else
        Ar = Split(sChemin, "\")
    End If
 
    sTmp = Ar(0)
    ChDrive sTmp
 
    For i = LBound(Ar) + 1 To UBound(Ar)
        If Ar(i) <> "" Then
            sTmp = sTmp & "\" & Ar(i)
            On Error Resume Next
            MkDir sTmp
            On Error GoTo 0
        End If
    Next i
 
    If Dir$(sChemin, vbDirectory) = vbNullString Then
        CreationDossier_02 = False
    Else
        CreationDossier_02 = True
    End If
End Function
 
Private Sub CreationDossier_03()
Dim sDossier As String, sChaine As String
    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    sChaine = Environ("comspec") & " /c mkdir " & sDossier
    Shell sChaine, 0
End Sub

Pour vérifier que ton nom de dossier ( Textbox 1 & 2 ) est valide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Function NomDossierValide(sChaine As String) As Boolean
Dim i As Long
Const CaracInterdits As String = """*/:<>?[\]|"
    NomFichierValide = True
    If Len(sChaine) = 0 Then
        NomDossierValide = False
        Exit Function
    End If
    For i = 1 To Len(CaracInterdits)
        If InStr(sChaine, Mid$(CaracInterdits, i, 1)) > 0 Then
            NomDossierValide = False
            Exit Function
        End If
    Next i
End Function