makro ile klasör açmak

[metinozlu]

merhaba
makro ile c deki a klasörü bütün dosyaları gösterecek şekilde nasıl çağrılabilir?

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:f56c16c39a]Sub ac()
On Error Resume Next
Application.GetOpenFilename = "c:\a\"
End Sub[/vb:1:f56c16c39a]

 

[Haluk]

Veya;

[vb:1:46083f6501]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
'
Sub Test()
ShellExecute 0&, "Open", "C:\TempFolder", vbNullString, "C:\", 1
End Sub
[/vb:1:46083f6501]

 

[metinozlu]

Sayın Leventm in kodu çalıştırdığımda belgelerim klasörü açıldı.
sayın raiderin kodları çalıştırıldığında hiç klasör açılmadı.

 

[Haluk]

:mrgreen:

Demek ki bilgisayarınızda ;

C:\a

ve,

C:\TempFolder

isimli klasörleriniz yok.

Bunları oluşturup, sonra tekrar denermisiniz ?

 

[metinozlu]

haklısınız tempfolder klasörü yokmuş
klasörü oluşturunda açtı.
cevaplar için teşekkürler.

 

[dirac]

merhaba

arkadaşlar peki olmayan bir klasörü makro ile açarak bunun içine dosyamı kaydetmek istiyorum. yani makro ile klasör oluşturma yolu var mıdır?

teşekkürler.

 

[Ali]

Sub klasör()
On Error Resume Next
MkDir "c:\deneme "
End Sub


C'nin içinde deneme adlı klasör oluşturur

 

[dirac]

çok teşekkürler fructose

iyi çalışmalar

 

[ustaoyuncu]

sayfadaki tarihe göre kayıt olabilirmi. Ã?rneğin tarih 01.01.2006 ise kitap adı aynı,
02.01.2006 olduğunda 02.01.2006 adlı yeni bir kitap kaydı olabilirmi?