Search results

Ok so I've been humbled quite a bit... The code in that example looks really simple but when I try to dissect it and make it it do what I want I'm lost... What exactly is happening in that example? I can follow it to a point but I'm struggling with understanding all the variables and why it...

OMG! That example is SWEET!!! It does exactly what I need. The only thing I need to do is add a few lines that write the values of files to a table and thats it... THANK YOU!!!

Thanks for the example I'll check it out now. The application I'm using is MS Access 2003 SP3 on 64bit Windows Vista Business SP1.

This is the gist of what I have been running and what seams to be not working. With Application.FileSearch .NewSearch .LookIn = f.Path .SearchSubFolders = True .FileName = "*" .Execute FileCount = .FoundFiles.Count End With The problem I just discovered is that it will...

THIS IS IT! The exact code I needed! It needs some fine tuning for me but it provides exactly what I needed!!! If you ever get stuck just create a thread asking for help and you'll find the answer on your own soon after... With Application.FileSearch .NewSearch .LookIn = f.Path...

I think I solved my problem...

Yea you're right... My listbox was well queried :D

I've done this a couple times and it works! As pbaldy said you can just do a Me.ListboxName.Rowsource = "YourSQLQuery" me.ListboxName.Requery Good Luck

I'm working on a "Simple" project but it got a little complicated... As usual :rolleyes: Its easy in DOS... You just run a Dir /S and viola... All your files including files in sub directories... So far I've used the MS example code below and it works great!!! '''' Display the names in C:\...

Ok so basically I'm stupid... One of my buddies found this MS link and it explains everything... http://support.microsoft.com/kb/233275 Dim Hours As String Dim Minutes As String Dim Seconds As String Dim MilliSec As String Dim Msg As String Dim ElapsedMilliSec As Long...

Well, I'm trying to be all fancy and capture time on a form via start stop buttons. I understand fully how to use the timer functionality and it works great... My problem is adding the time. I've got a text box CadTime and I want it to be 00:00 by default. When I press my button...

FileCopy source, destination Who'd of though...? That works great... I wonder why a vb help search didn't yield that one when I searched for "Copy File"? Thanks for the help it has been very much appreciated.

I don't know why this won't work? I get the good old run-time error '13': Type mismatch. I'm guessing that it has something to do with setting my object as a string. In which case how would I get the Copy Method to execute correctly? The object is required and is always the name of a file or...

Thanks that helped... I think I have it figured out. This code works... I just think it could be a little bit cleaner... Dim MyString, MyLine As String Dim Point1, Point2 As Integer Dim StrLen1, StrLen2 MyString = [Me.MyTextBox] Point1 = 1 Point2 = 1 While...

Sorry if I was unclear. As I said before it's a text box and it does contain the text shown as a string so if you were to run this code msgbox me.mytextbox it would return exactly as shown above. The problem with your solution I'm trying to pick apart and understand is that I can have a variety...

I'm having trouble parsing a text box correctly/at all. I just sent my PC into a while loop that resulted in a killing of the access.exe so I need some help. I have a text box containing the following text. X:\Data\file1.txt X:\Data\file2.txt X:\Data\file3.txt X:\Data\file4.txt I need to look...

Object.DeleteFolder PROBLEM SOLVED!!! Nuke2 = Me.DataLocation & "\" & [Forms]![fMain]![qTracking Data]![TID No] Dim MyObject As Object Set MyObject = CreateObject("Scripting.FileSystemObject") MyObject.DeleteFolder Nuke2, TrueThis will delete the...

I saw that you had an extra * in your code. I figured it would be something that simple but it doesn't make a difference; the subdirectories and the directory I want to delete still exist... :(

This is my exact code currently... If responce = vbNo Then Exit Sub Else DoCmd.SetWarnings False Nuke1 = Me.DataLocation & "\" & [Forms]![fMain]![qTracking Data]![TID No] & "\*." Nuke2 = Me.DataLocation & "\" & [Forms]![fMain]![qTracking Data]![TID No]...

The Kill statement will not remove directories if they exist. So if I want to delete X:\data\dir1 and there are folders inside dir1 Kill will not remove them and it will error during the RmDir due to the subdirectories. Is there some way to force a delete? I'm trying to figure out how to use...