Sub createfolder() Dim directory As String directory = "C:\Users\Amir\Desktop\New folder\" MkDir directory & "Test" End Sub
كار با پوشه ها در vba
Sub checkfolder()
Dim directory As String
If Len(Dir("C:\Users\Amir\Desktop\New folder", vbDirectory)) = 0 Then
MkDir "C:\Users\Amir\Desktop\New folder"
End If
End Sub
Sub createtxtfile()
directory = "C:\Users\Amir\Desktop\New folder\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(directory & "filename.txt")
End Sub
Sub listoffile()
Dim directory As String, fileName As String, sheet As Worksheet, i As Integer
directory = "C:\Users\Amir\Desktop\New folder\"
fileName = Dir(directory & "*.*")
Do While fileName <> ""
i = i + 1
Cells(i, 1) = fileName
fileName = Dir()
Loop
End Sub
کامنت