Klasör oluşturup içine dosya oluşturma

[Tankut SAZLI]

Arkadaşlar ;
Aşağıdaki kodlarla bir klasör oluşturp,içerisine bir mdnb dosyası oluşturmak istiyorum.Text2 den klasör isminiText1den mdb dosya ismini belirliyorum.her ikiside oluşuyor fakat bir türlü dosyayı klasörün içerisine atamadım.

Private Sub Command1_Click()
    Dim DatabasePath As String
    Dim Cat As Object
    Dim NewTable As Object
    Dim Şifre As String
    Dim ds
    Set ds = CreateObject("Scripting.FileSystemObject")
    ds.CreateFolder App.Path + "\Tools\" & Text2.Text 'Yeni klasör oluşturuyoruz
    Şifre = "" 'Veritabanını şifreliyoruz."xxxxx" x yazan yere şifrenizi yazın
    DatabasePath = App.Path + "\Tools\" & Text2.Text & Text1.Text & ".mdb" 'Oluşturlan klasör içine veritabanını atar ve Text1de yazanı isim olarak verir
    Set Cat = CreateObject("ADOX.Catalog")
    Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath & ";User ID=admin;Jet OLEDB:Database Password=" & Şifre 'Şifreli veritabanı yaratır
.........

Teşekkürler.

 

[alpi]

Hata şu satırda

    DatabasePath = App.Path + "\Tools\" & Text2.Text & Text1.Text & ".mdb"

Şu şekilde değiştirin

    DatabasePath = App.Path + "\Tools\" & Text2.Text & "\" & Text1.Text & ".mdb"

 

[Tankut SAZLI]

Elinize sağlık.Ağır kodlarla uğraşmaktan artık bunları göremez oldum,çok sağolun.