Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
28/12/2011 09:57
Konu Sahibi
ondercesmeci
Yorumlar
5
Okunma
2989
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 
Herkese günaydın.
Aşağıdaki kod ile klasör oluşturmaya çalışıyorum ama "MkDir w & a" yazılı kodda hata veriyor.
ilginize ve bilginize teşekkürler.

Visual Basic Code
1
2
3
4
5
6
7
Dim a, x, w As String
a = Me.sube
x = Me.yil
w = "D:\DOSYALAMA\" & x & "\"
If Len(Dir("D:\DOSYALAMA\" & x & "\" & a & "", vbDirectory)) = 0 Then
MkDir w & a
End If



Kullanici Avatari

chopper07

Uzman
Uzman
ER....
 42
 1.805
 228
 29/01/2008
376
 Aydın
 Otel Müdürü
 Ofis 2016 64 Bit
 19/02/2018,16:03
Çözüldü 

Visual Basic Code
MkDir "D:\DOSYALAMA\" & x & "\" & a & ""


şeklinde dener misiniz?


™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®


Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 
Sn. chopper07
teşekkür ederim ama problem devam ediyor.



Kullanici Avatari

alpeki99

Düşünmek en zor iştir...
Uzman
OL....
 38
 6.120
 162
 29/10/2008
 Bursa
 Yazılım Geliştirici
 Ofis 2010 32 Bit
 30/08/2018,18:18
Çözüldü 
"Eğer o klasör yok ise klasör oluştur" gibi bir mantık ile oluşturmaya çalışıyorsanız Len ile kontrol etmeyin. Direkt

Visual Basic Code
Dir(dosya_adresi) = ""


şeklinde kontrol ettirin.


AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.

Kullanici Avatari

ondercesmeci

Hesap Aktif Değil
Aktivasyon Bekleyen
 Belirtilmemiş
 62
 21
 15/06/2010
 Çorum
 
 Ofis 2007
 12/05/2016,17:32
Çözüldü 
Arkadaşlar teşekkürler çözdük. yardımlarınız için teşekkürler. belki başkasının işine yarar diye tüm kodları gönderiyorum.

Visual Basic 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
37
38
39
40
41
Private Sub konu_AfterUpdate()
Me.arsivadi.Visible = True
Me.arsivnot.Visible = True
Dim a, x, y As String
x = Me.sube
y = Me.yil
a = Me.konu

If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & y & "\" & x & "\" & a & "", vbDirectory)) = 0 Then
MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & y & "\" & x & "\" & a
End If

End Sub

Private Sub sube_AfterUpdate()
Me.konu.Requery
Me.konu.Visible = True
Dim a, x, w As String

a = Me.sube
x = Me.yil

If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & x & "\" & a & "", vbDirectory)) = 0 Then
MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & x & "\" & a

End If

End Sub


Private Sub yil_AfterUpdate()
Me.sube.Visible = True
Dim a, x As String
a = Me.yil

If Len(Dir("\\YESIL1\yesilkart veri\GOOGLE\" & a & "", vbDirectory)) = 0 Then
MkDir "\\YESIL1\yesilkart veri\GOOGLE\" & a

End If

End Sub



Kullanici Avatari

accessman

Aktif Üye
Aktif Üye
 Belirtilmemiş
 2.367
 561
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
ahmet klasörü yokken sıfırdan c dizinine bu klaörleri nasıl oluştururuz
bu kodda nerede hata var

Kod:
1
2
3
4
5
6
7
Private Sub Komut2_Click()

If Len(Dir("C:\ahmet\burak\ceyhan", vbDirectory)) = 0 Then
MkDir "C:\ahmet\burak\ceyhan"
End If

End Sub


doğrusu buymuş adım adım klasör eklenecekmiş

Kod:
MkDir "C:\ahmet"
MkDir "C:\ahmet\burak"
MkDir "C:\ahmet\burak\ceyhan"


@benbendedeilem


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Bir Ürün Tablosundan Farklı Veriler Çekerek Sipariş Oluşturma Ve Ürün Fyat Güncelleme antoryum 9 257 07/08/2018, 08:38
Son Yorum: antoryum
Çözüldü Form üzerinden boş veritabanı oluşturma bibib 5 216 24/06/2018, 10:43
Son Yorum: bibib
Çözüldü Raporda Birbirinden Farklı Sayfalar Oluşturma mmert06 4 184 22/06/2018, 13:44
Son Yorum: mmert06
Çözüldü İki Tarih Aralığına Göre Liste Oluşturma fascioğlu 2 203 09/06/2018, 15:27
Son Yorum: fascioğlu
Çözüldü Ortak Form Oluşturma cevdetmeric1 4 269 05/06/2018, 09:45
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.