Dinamik değişkenden dosya adı alma

[ufukufuk01]

Merhabalar Hocalarım

aşağıdaki ki kod ile açılan pencereden farklı kodlara göre farklı uzantılı dosyalar seçiyorum örnek olarak (C:\Belgelerim\Desktop\abc\123.xls ) yolu seçtiğim zaman folderpath değişkenim (C:\Belgelerim\Desktop\abc\123.xls) oluyor sonra bu değişkenim içinden sadece 123.xls adını a değişkenine atamak istiyorum. bunun ile ilgili a=
ile kodu tam yazamadım bu konuda yardımcı olursanız sevinirim. A değişkenine sadece dosya adını yazmak mümkün mü Yardımcı olursanız sevinirim. . Şimdiden tşk.ler.


Dim folderPath As String
Dim a As String

With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 0 Then

Exit Sub
End If

folderPath = .SelectedItems(1)
End With

a = Split(Mid( folderPath, 1), "\")

 

[YUSUF44]

Şöyle deneyin:

Dim folderPath As String
Dim a As String
Dim yol As Variant

With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 0 Then

Exit Sub
End If

folderPath = .SelectedItems(1)
End With

yol = Split(Mid(folderPath, 1), "\")
a = yol(UBound(yol))

Not: Siz a'yı string yani metin olarak tanımlamışsınız ama kodunuzda split komutuyla dizi elde etmişsiniz. Dizinin variant diye tanımlaması gerekiyor bildiğim kadarıyla.

 

[ufukufuk01]

Hocam çok teşşekkür e

Şöyle deneyin:

Dim folderPath As String
Dim a As String
Dim yol As Variant

With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 0 Then

Exit Sub
End If

folderPath = .SelectedItems(1)
End With

yol = Split(Mid(folderPath, 1), "\")
a = yol(UBound(yol))

Not: Siz a'yı string yani metin olarak tanımlamışsınız ama kodunuzda split komutuyla dizi elde etmişsiniz. Dizinin variant diye tanımlaması gerekiyor bi

Şöyle deneyin:

Dim folderPath As String
Dim a As String
Dim yol As Variant

With Application.FileDialog(msoFileDialogFilePicker)
.Show
If .SelectedItems.Count = 0 Then

Exit Sub
End If

folderPath = .SelectedItems(1)
End With

yol = Split(Mid(folderPath, 1), "\")
a = yol(UBound(yol))

Not: Siz a'yı string yani metin olarak tanımlamışsınız ama kodunuzda split komutuyla dizi elde etmişsiniz. Dizinin variant diye tanımlaması gerekiyor bildiğim kadarıyla.

ldiğim kadarıyla.

Hocam çok teşekkür ederim

 

[YUSUF44]

Bu arada sistem ayarlarında farklılık olması durumunda sıkıntı çıkmaması için "\" yerine ApplicationPathSeperator kullanmanızı öneririm.

 

[ufukufuk01]

Hocam çok teşekkür ederim
[/QUOTE]


yol = Split(Mid(folderPath, 1), "\")
a = yol(UBound(yol))

.xls uzantısıda silmek için nasıl bir eklenti yapmalıyım hocam ( \ ) ile (. ) nokta arası sadece dosya adını almak için

tşk.ler

 

[YUSUF44]

Önceki verdiğim kodların altına

For i = Len(a) To 1 Step -1
if Mid(a,i,1) = "." Then
a=Left(a,i-1)
i=1
End if
Next

Kodlarını ilave edip deneyin: