Giúp code lấy tên File và đuôi file

[minhtuan55]

Chào cả nhà GPE ! em cần 1 đoạn code như sau :
1. Lấy Full đường dẫn
2. Lấy tên và đuôi file
3. Chỉ lấy tên không lấy đuôi file

Hiện đang dùng code này chỉ đúng mục 1 ( Lấy full đường dẫn )

Sub Laytenfilevaduoi() ' Minh muon lay Ten va Duoi
Dim x As Variant
x = Application.GetOpenFilename("Piture, *.jpeg;*.jpg")
If TypeName(x) = "String" Then
Range("a8") = x
Range("a8").Select
End If
End Sub

Xin chân thành cảm ơn

 

[vanthinh3101]

Chào cả nhà GPE ! em cần 1 đoạn code như sau :
1. Lấy Full đường dẫn
2. Lấy tên và đuôi file
3. Chỉ lấy tên không lấy đuôi file

Hiện đang dùng code này chỉ đúng mục 1 ( Lấy full đường dẫn )

Sub Laytenfilevaduoi() ' Minh muon lay Ten va Duoi
Dim x As Variant
x = Application.GetOpenFilename("Piture, *.jpeg;*.jpg")
If TypeName(x) = "String" Then
Range("a8") = x
Range("a8").Select
End If
End Sub

View attachment 212721

Xin chân thành cảm ơn

Bạn dùng code sau:

Sub Laytenfilevaduoi() ' Minh muon lay Ten va Duoi
    Dim x As Variant, Fso As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
    
    x = Application.GetOpenFilename("Piture, *.jpeg;*.jpg")
    
    Range("A8") = Fso.GetAbsolutePathName(x)
    'Range("A9") = Fso.GetFileName(x)
    Range("A9") = Fso.GetBaseName(x)
    Range("A10") = Fso.GetExtensionName(x)
    
End Sub

 

[minhtuan55]

Bạn dùng code sau:

Sub Laytenfilevaduoi() ' Minh muon lay Ten va Duoi
    Dim x As Variant, Fso As Object
    Set Fso = CreateObject("Scripting.FileSystemObject")
   
    x = Application.GetOpenFilename("Piture, *.jpeg;*.jpg")
   
    Range("A8") = Fso.GetAbsolutePathName(x)
    'Range("A9") = Fso.GetFileName(x)
    Range("A9") = Fso.GetBaseName(x)
    Range("A10") = Fso.GetExtensionName(x)
   
End Sub

Quá hay. thank anh